sayfa yardım

[byaysan]

excellde tüm çalışma kitabını şifrelemeden, sadece içindeki sayfa2 yi şifrelemek istiyorum. Dosyam serverda ortak paylaşımda ancak sayfa2 yi benim dışımdaki çalışanlar açmamalı.

sayfa2 nin üzerine tıklayınca şifre sorsun tek istediğim bu.
Herkese kolay gelsin.

 

[Mahir64]

Merhaba,
Fikir verebilir.

Private Sub Worksheet_Activate()
Şifre = "123"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("anasayfa").Select
End Sub

 

[Murat OSMA]

Sayfa2'nin kod kısmına bu kodları yazıp deneyiniz;

[FONT="Trebuchet MS"]Private Sub Worksheet_Activate()
    Dim a As Variant
    a = Application.InputBox("Şifre Girin", "Şifre Ekranı")
    If a <> "123" Then
        Sheets(ActiveSheet.Index - 1).Select
    End If
    a = Empty
End Sub[/FONT]

Eğer şifre olarak 123 girilmezse önceki sayfayı seçer.

Not: Mahir Bey, mesajınızı geç gördüm.

 

[byaysan]

mrb kod u yazdım kod görüntüle kısmına fakat onaylamam mı gerekiyor bir yerlerde . ?

 

[Murat OSMA]

İlgili sayfanın kod kısmına yazdıysanız; şimdi sayfaya dönüp başka bir sayfa seçin ve tekrar ilgili sayfayı seçin.
Bu kodlar ilgili sayfa her aktif olduğunda (seçildiğinde, açıldığında vs.) çalışır.

 

[Murat OSMA]

Yine yapamamışsınız sanırım. Dosyayı ekliyorum

 

[byaysan]

osman bey şimdi oldu fakat şöle bir durum var şifre sorduğunda arka planda sayfa gözüküyor , yani ekranda şifre girdikten sonra görülebilen bir sistem olabiliyor mu?

 

[Mahir64]

Private Sub Worksheet_Activate()
Application.Visible = False
.
.
.
.

Application.Visible = True
End Sub

Osman kim?
Kodlarınızın başına ve sonu ekleyin.

 

[byaysan]

MAHİR BEY TEŞEKKÜRLER.mükemmel oldu TAM istediğim gibi...

 

[byaysan]

mahir bey şöle bir durum var şifre istediğinde ekran kayboluyor çok güzel fakat benim haricimde girmek isteyen kişi orada cancel a basarsa hata veriyor ve direk kodun içine giriyor ve orada şifre yazıyor :/ sanırım başaramadım .

 

[byaysan]

cancel a bastığımda gelen end tuşu sonlandırıyor fakat debug tuşu kodların içine giriyor.

 

[Mahir64]

Private Sub Worksheet_Activate()
Application.Visible = False
Şifre = "123"
Yaz_Şifre = InputBox("Şifrenizi Yazın", "")
If Yaz_Şifre <> Şifre Then Sheets("[B][COLOR=Red]anasayfa[/COLOR][/B]").Select
Application.Visible = True
End Sub

Hata almamanız gerekli. Çalışmanızda anasayfa sayfa yerine olan bir sayfa adı yazın. Muhtemelen anasafa diye çalışma sayfanız yoktur. Yada anasayfa adında bir sayfa oluşturun. Bu kısın şifre yazıldığında geri gideceği yeri belirtir.

--

 

[byaysan]

şimdi mükemmel oldu tam işte bu! çok teşekkürler MAHİR BEY ...

 

[Mahir64]

İyi çalışmalar

..