Makro ile sayfa korumasında şifrenin otomatik girilmesi.

[leumruk]

Selamalar...

ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

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

Yukarıdaki kodlardan birincisi makroyu iptal ediyor, diğeri ise aktif hale getiriyor. Bu kodları gerekli makrolarımın başına ve sonuna ekledim.
Fakat ben korumaya şifre eklemek istiyorum. Şifre eklediğimde, makro çalışınca şifre ekranı geliyor. Ben yukarıdaki kodlara şifreyi eklemek istiyorum. Böylece şifre ekranını engellemek istiyorum.
Bunu nasıl yapabiliriz.
Saygılar...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Korumayı kaldırmak için;

ActiveSheet.Unprotect Password:="12345"

Korumayı tekrar aktif hale getirmek için;

ActiveSheet.Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[leumruk]

Korhan hocam,
Teşekkürler...

 

[leumruk]

Syn. Korhan hocam,
Başka bir başlıktaki diyaloglarınızı gördüm.(Kopyala,Kes,Yapıştır Engelleme)
Araya girmeyim diye burada sorayım dedim.
Koruma seçeneğini de engelleyebilir miyiz? Sayfayı korumaya aldıktan sonra göndereceğiniz kodları girip, koruma seçeneğine ulaşılmasını engellemek istiyorum.
Saygılar...

 

[Ayhan Ercan]

Syn. Korhan hocam,
Başka bir başlıktaki diyaloglarınızı gördüm.(Kopyala,Kes,Yapıştır Engelleme)
Araya girmeyim diye burada sorayım dedim.
Koruma seçeneğini de engelleyebilir miyiz? Sayfayı korumaya aldıktan sonra göndereceğiniz kodları girip, koruma seçeneğine ulaşılmasını engellemek istiyorum.
Saygılar...

Application.CommandBars("Tools").Controls(9).Enabled = False

 

[leumruk]

Syn. Ayhan hocam,
Çok teşekkür ederim.
Saygılar...

 

[wipex]

Çok sağol paşam ellerin dert görmesin