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ýnaPrivate 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