VBA Hata Uyarısı

[1Al2Ver]

Merhaba,

Orj.Dosyada Modül1'den alınan kod ;

Worksheets("ZİYARETÇİ_KAYIT").ProtectPassword: = "1122334455"

Dosyamda Modül1'e yazınca ; iki nokta üst üste ( : ) yi kabul etmiyor.



Aşağıdaki gibi yazınca da hata veriyor.

Sub auto_Open()
[COLOR="Red"]Worksheets("ZİYARETÇİ_KAYIT").ProtectPassword = "1122334455"[/COLOR]
Application.Visible = False
UserForm1.Show
End Sub

Bu hatayı nasıl gidere bilirim ?

Teşekkür ederim.

 

[ASLAN7410]

Merhaba.

Kendi örneklerime baktığımda aşağıdaki gibi yapınca hata vermiyor, sayfayı kilitliyor.

Private Sub Workbook_Open()
Worksheets("ZİYARETÇİ_KAYIT").Protect "1122334455"
End Sub

 

[PLİNT]

Merhaba
Bitişik yazmışsınız.
"Protect Password:= "

Worksheets("ZİYARETÇİ_KAYIT").Protect Password:= "1122334455"

 

[1Al2Ver]

Sayın PLİNT merhaba,

Teşekkür ederim, çözümünüz üzere hallettim.

Saatlerdir çabalıyordum, bakıp ta görememek böyle bir şey işte.

Saygılarımla.

 

[1Al2Ver]

Sayın Aslan7410 merhaba,

İlginiz ve cevap için teşekkür ederim.