Her Defasinda Şİfre Gİrmeme

[casua]

ArkadaŞlar Merhaba.
Ektekİ Dosyanin Koruma Şİfresİ 12345.ben Her AÇisimda Korumayi Kaldirmak İÇİn Şİfreyİ Gİrİyorum Fakat İŞİm BİttİĞİnde Şİfreyİ Tekrar Gİrmek İstemİyorum.bunun İÇİn Herhangİ Bİr Makro Veya BaŞka Bİrsey Var Midir?

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz. Herhangi bir Olay'a da atayıp kullanabilirsiniz.

Sub Makro1()
Sayfa1.Protect "123"
End Sub