sayfa korumasında şifre varken makrom çalışmıyor

[acemituncay]

sayfa koruması varken makrolarım çalışmıyordu aşağıdaki şekilde yeni makro yazdım yalnız sayfa korumasına şifre koyunca çalışmıyor şifreyi istiyor şifreyi girincede sayfa korumasını kaldırıp makroyu çalıştırıyor.
Arkadaşlar benim istediğim sayfa korumasına şifre verdiğimdede makronun çalışması çalışırken benden sayfa koruma şifresini istememesi ve sayfa korumasını kaldırmaması.


Sub CekSarfBelgesiniTemizle()
'
' CekSarfBelgesiniTemizle Makro
' Çek Sarf Belgesinin İçeriğini Temizler
'

'
ActiveSheet.Unprotect
Range("B9:N28").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-24
Range("Q9:AA28").Select
Selection.ClearContents
Range("N3:Q5").Select
ActiveWindow.SmallScroll Down:=-27
ActiveSheet.Protect
End Sub


bu makronun sayfa korumasında şifre varken nasıl çaşıtırabilirim lütfen bilgi sahibi arkadaşlardan yardım bekliyorum

 

[leumruk]

ActiveSheet.Unprotect 12345
Makro kodunuz
ActiveSheet.Protect 12345

Makro kodunuzu verdiğim kodların arasına yazınız. Şifreyi ben 12345 olarak yazdım siz değiştirebilirsiniz.
Birinci satır kodu açar makronuz işlevini gerçekleştirir. Son satır tekrar korumayı devreye sokar.

 

[acemituncay]

çok teşekkür ederim sizler arkadaşlarım olmasa ne yaparım sağolun

 

[leumruk]

çok teşekkür ederim sizler arkadaşlarım olmasa ne yaparım sağolun

Rica ederim.