sayfa koruma

[stalker]

Şifreli sayfaların korumasını kaldıracak genel bir makro yazılabilir mi...

 

[leumruk]

Sub KorumaKaldır()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Unprotect 12345
Next i
Sheets("Sayfa1").Select
End Sub


Sub Koru()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Protect 12345
Next i
Sheets("Sayfa1").Select
End Sub

Birinci kod bütün sayfalardaki korumayı kaldırır.
İkinci kod tüm sayfaları korumaya alır.
Koruma şifresi: 12345