Sayfa Gizle/Göster - Şifreli

[zatarro]

Arkadaşlar merhaba,

Gizlemiş olduğum sayfaları göster dediğimde şifre sorulmasını istiyorum. Bunu aşağıdaki kodlarla yapabiliyorum fakat sorun şu ki sayfalar arasında dolaşırken de şifre soruyor.
Yani Gizli olan dosyayı açarken bir kere şifre sorulsun ve sayfa görünür olsun ama sonra sayfalar arasında dolaşırken bir daha şifre sorulmasın istiyorum, bu mümkün müdür?

Teşekkürler


Private Sub Worksheet_Activate()

ActiveWindow.WindowState = xlMinimized

sor = InputBox("Şifreyi girin", "Onay", "")

If sor = 1 Then
Sheets("Sayfa2").Activate
ActiveWindow.WindowState = xlMaximized
Else
Sheets("Sayfa3").Activate
ActiveWindow.WindowState = xlMaximized
End If

End Sub

 

[zatarro]

Arkadaşlar yok mu bi cevap verecek???

 

[uzmanamele]

merhaba
Private Sub Worksheet_Activate() altında kod yazıldığı için sayfa her aktif olduğunda şifreyi sorar.

buraya bakınız,
http://www.excel.web.tr/f48/gizle-goster-otomatik-t38654.html

ya da siz sanırım dosya koruma şifresi arıyorsunuz, sitede arama yapın.