Makro Hata

[HarEndu]

Merhaba,
aşağıda sayfaya koruma ekleme/kaldırma makrosu var. Bu makroları çalıştırdığımda tüm sayfaları gizliyor ve kullanılamaz hale getiriyor. Hata nereden kaynaklanıyor olabilir caba?

Sub koruma()
For k = 1 To Worksheets.Count
Worksheets(k).Protect password:="p", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Next k
End Sub


Sub korumaaç()
mySifre = Application.InputBox("Sifreyi Giriniz")
If mySifre = "p" Then
For k = 1 To Worksheets.Count
Worksheets(k).Unprotect password:=mySifre
Next k
Else
MsgBox "KİMSİN SEN"
End If
End Sub

 

[genesis_vision]

Kodda hata görünmüyor. Bende gayet düzgün bir şekilde çalışıyor.

 

[HarEndu]

sayın genesis_vision,
koruma makrosunu çalıştırdığımda, excelden çıkıyorum tekrar girdiğimde ise tüm sekmeleri gizliyor ve şöyle hata veriyor.

 

[genesis_vision]

Mevcut kodları butonlara atadım. Şu an bende çalışıyor. Bu dosyayı dener misiniz? Korumayı kaldırma şifresi p

 

[muzaffer.sm]

Kodlar ilgili sayfaları kilitliyor,Şifrenin girilmesi halinde ise sayfaların korumaları kalkıyor.Kodlarda sorun yok.Gizlenen bir sayfa yok.

 

[HarEndu]

muzaffer bey,
Nasıl çözüm üretebilirim buna? Her seferinde tüm sekmeleri tek tek koruma koyuyorum. Muhtemelen çok fazla kod var, bundan kaynaklanıyor diye düşünüyorum.

 

[muzaffer.sm]

Muhtemelen farklı bir şey vardır.Ben kodlarınızı merak edip bir dosyada denemiştim.Gayet normal çalışıyor.
Çıkan hataları görmeden bir şey demek yanlış olur gibi.
Denediğime göre boş bir excel kitabında her şey normal görünüyor.