aktif olan sayfadaki şifreyi kaldırmak

[kelti_2000]

Sub deneme()
Sheets("Sayfa1").Unprotect Password:="sifre"
'Buraya sizin kodlarınız yazın.
Sheets("Sayfa1").Protect Password:="sifre"
End Sub


bu kodu nasıl düzenlersem aktif olan sayfa için işlem yapar. toplam 12 sayfam var dosyamda.

şimdiden teşekkürler

 

[Ferhat Pazarçevirdi]

Sheets("Sayfa1")...... yerine ActiveSheet...... yazın ...