Sifre

[Kemal Demir]

Selam arkadaşlar öncelikle kayıt olduğum için cok sevindim :hihoho:

Soruma gelmek istiyorum..

Makro ile Gizlediğimiz Sheet i açmak için yazacağımız makraya şifre sormasını sağlaya bilirmiyiz

"gizlenen sheet"(sır)" açtığımız zaman bize password sorsun.. Çok şey istememişimdir umarım sağlıcakla kalın
Þimdidedn sağolun :yardim:

 

[eXpert]

VBA da thisworkbook kısmına

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Sh.Name) = "sheet1" Or LCase(Sh.Name) = "sheet2" Then
    If InputBox("Þifreyi girin") <> "sifre" Then Sh.Visible = False
End If
End Sub

bu kodları ekle, LCase(Sh.Name) = "sheet1" kısmını or ekleyerek yeni sheet isimleride ekleyebilirsin, tabi lcase aldırdığımız için sheet isimlerini küçük harflerle yazmaya dikkat et.

 

[Kemal Demir]

EXPERT COK TESEKKUR EDERİM