Makro ile sayfa koruma

[Mehmet Sait]

Merhaba,

365 sayfalık bir dosyamın tüm sayfalarını makro ile şifreli kilitlemek mümkün mü ?

Teşekkür ederim.

 

[hamitcan]

Sayfa sayısı kadar sayfayı korur.

Sub Sifrele()
    For i = 1 To Sheets.Count
        Sheets(i).Protect "a"
    Next
End Sub

 

[Mehmet Sait]

Sayfa sayısı kadar sayfayı korur.

Sub Sifrele()
    For i = 1 To Sheets.Count
        Sheets(i).Protect "a"
    Next
End Sub

Teşekkür ederim.

 

[Orion1]

alternatif.

Sub sayfa_koru59()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Protect "a"
Next
End Sub