Çözüldü Şifre yazarken herkes görüyor ** gizlemek istiyorum.

Merhaba,

Birisi yanımdayken şifre yazınca yanımdaki kişide görüyor gizlilik kalmıyor. Yabancı bir sitede bazı kodlar buldum ve ekteki dosyaya modüle ekledim. ANASAYFA da çağırma kodunuda ekledim gayet iyi gizliyor şifreyi ama aşağıdaki benim kullandığım kodlara nasıl entegre olacak onu bilmiyorum.

Gizlemek istediğim sayfalara iç bu kodu kopyalıyorum. Herhangi bir buton kullanmıyorum sayfaya girmek tıklayınca otomatik şifre menüsü geliyor

Private Sub Worksheet_Activate()

Cells.EntireRow.Hidden = True
c = InputBox(ActiveSheet.Name & " Sayfasını Görünür yapmak için Açılış Şifresini Giriniz", "AÇILIŞ ŞİFRESİ")
If c = "123456" Then
Cells.EntireRow.Hidden = False
Cells(1, 1).Select
Else
MsgBox "Şifreyi Yanlış Girdiniz."
End If

End Sub

Genişletmek için tıkla ...

Bu kodda ThisWorkbook kopyalıyorum şifre girmeden kayıt yapmaya izin vermiyor ama bundada şifre görünüyor. Exceli kaydet deyince otomatik şifre menüsü aktif oluyor

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = InputBox("Kayıt yapmaya gerek yoktur.
"Yetkili Kişi", "")
If sifre = "123456" Then 'Örnek Şifre olarak 123456
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAŞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Dosya kaydedilemedi", vbCritical, "HATALI ŞİFRE"
Cancel = True
End If
End Sub

Genişletmek için tıkla ...

Deneme yanılmayla kodları nereye koyacağımı buldum şuan sorunsuz çalışıyor. İlgilenen var mıydı bilmiyorum ama yinede çok teşekkürler.