Sayfayı Makro ile Kilitleme ve Gizleme

[ERMAN SAYINALP]

Merhaba,

Excel Çalışma Kitabında, içinde değerli bilgiler olan bir sayfayı Makro ile Kilitlemek ve Gizlemek (şifre olmaksızın görünür olamaz) istiyorum.

Excel'in bu konuda verdiği imkan olan;

Giriş > Biçim > Gizle Göster > Sayfayı Gizle (Sayfayı Göster)

Yönteminden daha farklı ve daha güçlü bir Gizleme yöntemi ( Makro ile ) için değerli yardımlarınızı rica ederim.

Saygılarımla.

 

[Korhan Ayhan]

Buradaki konular işinize yarayabilir. İnceleyiniz.

Sorgu için arama sonuçları: Veryhidden

www.excel.web.tr

 

[ERMAN SAYINALP]

Korhan bey merhaba,

Excel Çalışma Kitabımdaki tüm sayfaları;

Sub Sayfa_Kilitle()
For a = 1 To Sheets.Count
Sheets(a).Protect Password:="123" = True
Next
End Sub

Komutuyla topluca Şifreli olarak Kilitleyebiliyorum,

Sub Password_Open()
For a = 1 To Sheets.Count
Sheets(a).Unprotect Password:="123" = True
Next
End Sub

Komutuyla da topluca Şifrelerini kaldırıp Açabiliyorum.

Ricamı kabul ederseniz, 2. Komut olan KOD'lamayı ŞİFRE ile çalıştırabilir hale getirebilir misiniz ?
Yani KOD'lama Tetiklemesi yapıldığında Excel ŞİFRE istesin.

Peşinen teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz..

Sub Password_Open()
Sifre = Inputbox("ONAY şifresini giriniz...")
If Sifre = 12345 Then
For a = 1 To Sheets.Count
Sheets(a).Unprotect Password:="123"
Next
Else
MsgBox "Hatalı şifre girdiğiniz için işlem iptal edilmiştir."
End If
End Sub

 

[ERMAN SAYINALP]

Deneyiniz..

Sub Password_Open()
Sifre = Inputbox("ONAY şifresini giriniz...")
If Sifre = 12345 Then
For a = 1 To Sheets.Count
Sheets(a).Unprotect Password:="123"
Next
Else
MsgBox "Hatalı şifre girdiğiniz için işlem iptal edilmiştir."
End Sub

Değerli Korhan AYHAN bey,

Müteşekkirim, elinize sağlık.

Küçük bir not;

KOD başlangıçta çalışmadı, bu benzeri KOD'lamalardan aklımda kaldığı kadarıyla KOD'lamanıza;

END IF 'ilave ettim, çalıştı.

 

[Korhan Ayhan]

Evet telefondan yanıt verince End if komutunu unutmuşum. Düzeltmeniz yerinde olmuş. Bende nesajımı revize ettim.