sayfa koruma

Katılım
14 Ekim 2008
Mesajlar
61
Excel Vers. ve Dili
2007
Şifreli sayfaların korumasını kaldıracak genel bir makro yazılabilir mi...
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,471
Excel Vers. ve Dili
Office 2010 & 2013 tr
Kod:
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
 
Üst