Soru Makro İle Koruma Çalışma Kitabını Koruma

[teyadih]

Merhaba arkadaşlar. Tüm çalışma kitabını sayfa koruması yapacak ve her hangi bir sayfada düzeltme yapmak için şifre girip sayfa korumasını kaldırdığım durumlarda belgeyi kayıt ettiğimde tüm sayfaları otomatik olarak sayfa koruması yapacak bir makroya ihtiyacım var. Umarım anlatabilmişimdir. Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu BuÇalışmaKitabı adlı kod sayfasına kopyalayın.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Bak As Worksheet
    For Each Bak In ThisWorkbook.Worksheets
        Bak.Protect "Şifre"
    Next
End Sub

Dosyayı her kayıt ettiğinizde kodlar sayfaları korumaya alacaktır.

 

[teyadih]

Teşekkür ederim Muzaffer bey elinize sağlık. Kod tamam