Şİfre Koyma

[muzafferoral]

Arkadaslar Excel Sayfasinda Bellİ Bİr Yere Şİfre Koymak İstİyorum.formullerİ Korumak İÇİn.bunu Nasil Yapmam Gerekİyor,formul KoyacaĞim Yer Dolgu Renklİ Olan Yerdİr.Örnek Dosyada ,Şİmdİden Yardimlariniz İÇİn TeŞekkÜr.aÇiklama Yazarsaniz Sevİnİrİm.ÇÜnkÜ Şİfre Koymak İstedİĞİm Dosya Bİr BaŞka Dosya

 

[ECYavuz]

Deneyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Address <> "A26:AG37" Then Exit Sub
&#351;ifre = InputBox("l&#252;tfen &#351;ifreyi giriniz")
If &#351;ifre <> "neyse&#351;ifre" Then [A11].Select
End Sub

 

[muzafferoral]

te&#351;ekk&#252;rler