şifre korumalı sheet'in şifresini makro ile girmek

[gurkaneral80]

arkadaşlar. ben makro ile bir sheet'i korumaya alıp (protect) yine makro ile korumadan çıkarabiliyorum (unprotect). fakat bu protect işlemini şifre girerek yapmak istiyorum. yani kodlar ile şifreli koruma ve şifreli koruma kaldırma nasıl oluyor? şifresiz şöyle oluyor mesela;

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect

değerli yardımlarınız acilen bekliyorum.

 

[Ömer]

Merhaba,

ActiveSheet.Protect "şifreniz"

ActiveSheet.Unprotect "şifreniz"

şeklinde deneyiniz.

.

 

[Emir Hüseyin Çoban]

Merhaba,

Sub sifre_koy()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1"
End Sub

Sub sifre_kaldır()
ActiveSheet.Unprotect Password:="1"
End Sub

 

[gurkaneral80]

teşekürler. çok işime yaradı...