Excel dosya şifreleme

[mesudiye_052]

Herkese selamlar
dosya açılırca şifre soran inputbox yaptım ama makroyu çalıştırmadan otomatik
devreye girmiyor
ben excel sayfasını açtığım zaman şifre kutusu karşıma gelmesini istiyorum

kodlar
Sub şifre()
Dim sayac As Byte
Do
If Application.InputBox(prompt:="Lütfen şifreyi giriniz", Type:=1) = 123 Then Exit Do
sayac = sayac + 1
If sayac > 2 Then
ThisWorkbook.Close savecanges = False
End If
Loop
End Sub
yardımlarınızı bekliyorum

 

[Merhum İdris SERDAR]

Ekteki örneği kendinize uyarlayın.

Şifre:123

 

[mesudiye_052]

Sayın Yurttaş cevabınız için teşekkür ederim

bende acizane bir yol buldum
Sub auto_open()
Dim sayac As Byte
Do
If Application.InputBox(prompt:="Lütfen şifreyi giriniz", Type:=1) = 123 Then Exit Do
sayac = sayac + 1
If sayac > 2 Then
ThisWorkbook.Close savecanges = False
End If
Loop
End Sub