Soru : Unprotect Yaparken Çalışan Makro

[baydeniro]

Sayın üstatlar. Sizden bir ricam var. Aklıma ilginç bir dosya koruma uygulaması geldi. Ekteki dosyadaki makronun Sayfanın Unprotect yapılmak amacıyla parola yazılmasına (veya Unprotect seçildiğinde) bağlı olarak otomatik olarak çalışmasını sağlayacak bir makro yazmak olası mı ?

KAYIT Sayfasının Unprotect şifresi 1.

İlgilenenlere şimdiden teşekkürler.

 

[Kemal Demir]

Aşagıdaki kodlar size fikir verebilir dusuncesindeyim.

Sub sayfaya_sifrekoy()
Sheets("sayfaismi").Protect Password:="123456"
End Sub

Sub sayfa_sifreiptal()
Sheets("sayfaismi").Unprotect Password:="123456"
End Sub

 

[baydeniro]

Sayın Rakkas merhaba, ilginize teşekkürler. Ben kodları henüz dosyaya uygulama fırsatı bulamadım. Ancak aklıma şu soru geldi. Bu kodlar ile sayfa UNPROTECT yapılması esnasında dosya içindeki makro çalışır mı ?

 

[baydeniro]

Sayın Rakkas. Cahilliğimi mazur görün. Bu kodları kullanmayı beceremedim. Biraz daha detay verir misiniz ?