Sayfa Gizleme ve Şifreleme

[kamsal]

Arkadaşlar ekteki dosyada "sayfa gizle/göster/şifrele" ile ilgili bir sorunumun var.

Yardımcı olursanız sevirim.

 

[İhsan Tank]

merhaba

N.Ziya Hiçdurmaz Uzman'dan Alıntıdır.

Sub gizle()
Sayfa6.Visible = False
Sayfa6.Protect
Sayfa3.Activate
End Sub

N.Ziya Hiçdurmaz

Sub goster()
Sayfa6.Visible = True
Sayfa6.Unprotect
Sayfa6.Activate
End Sub

Sub ProtectSheet()
Dim Password 'This line of code is optional
Password = "1234"
ActiveSheet.Protect Password, True, True, True
End Sub
Sub UnProtectSheet()
Password = "1234"
ActiveSheet.Unprotect Password
End Sub

bu kodları dener misin
kodlar 2 tanesi N.Ziya Hiçdurmaz Uzman'dan alıntıdır

 

[kamsal]

Sayın cılgın86'lı, Sayın,N.Ziya Hiçdurmaz hocam alıntı olan bu kodları daha önceki dosyamda bana yardımcı olarak göster/gizle bütonlarında yapmıştı.

Ancak göster den sonra "şifre" nasıl yapılacağı hususunda bir bilgim yok (yani kodları tam olarak nereye ve nasıl yapıştırmam gerekli) bu kodları dosya üzerinde uygulamalı yapabilirseniz inanın çok yardımcı olacaksınız.

Ayrıca ilginize çok teşekkür ediyorum.

Saygılarımla