Dosyanızda 50 tane sayfa var ve hepsini tek tek şifrelemek yarım saatinizi alır. Makro ile 1 saniyede halledin.
Toplu Kilitleme Kodu
Sub HepsiniKitle()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="Gizli123"
Next ws
MsgBox "Tüm sayfalar kilitlendi!"
End Sub
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="Gizli123"
Next ws
MsgBox "Tüm sayfalar kilitlendi!"
End Sub
Kilidi açmak için kodun içindeki .Protect kısmını .Unprotect yapmanız yeterlidir.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap