Makro ile Sayfa Şifrele Açma Kodu Düzeltmesi

[airborne]

s.a.

forumda üstadların birisinin çalışmasından alınma kodları kendime uyarlamaya çalıştım ama olmadı.

Kodlarım :

Sub temizle_Tlf_Adres()
ActiveSheet.Unprotect Password:="001382efg0", Structure:=False, Windows:=False
Sheets("Sayfa46").Range("A3:E104").Clear
ActiveSheet.Unprotect Password:="001382efg0", Structure:=True, Windows:=False
End Sub

verdiği hata:


Runtime Error '1004'

Aplication defined - or object - defined error

Üstadlarım bu hatayı nasıl aşarım. Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Dosya eklerseniz, daha çabuk cevap bulabilirsiniz.

 

[Korhan Ayhan]

Merhaba,

Siz kitap koruma özelliğindeki ifadeleri sayfa korumasında kullanmışsınız. Bu sebeple hata alıyorsunuz.

Aşağıdaki kodu deneyiniz.

Sub temizle_Tlf_Adres()
ActiveSheet.Unprotect Password:="001382efg0"
Sheets("Sayfa46").Range("A3:E104").Clear
ActiveSheet.Protect Password:="001382efg0"
End Sub