Aynı anda tüm sayfaların şifresini açmak

[gecemavisi]

Merhaba arkadaşlar;
Aynı anda tüm sayfaların şifresini sizce nasıl açarım.
Saygılarımla...

 

[Ali]

Tüm sayfalara tek seferde şifre vermek için


Private Sub sifrele ()
On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Protect Password:="şifreniz"
Next sayfa
End Sub


Tüm sayfalardan tek seferde şifreleri kaldırmak için

Private Sub sifrekaldir()
On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Unprotect Password:="şifreniz"
Next sayfa
End Sub

 

[gecemavisi]

Teşekkür ediyorum Saygıdeğer Fructose

 

[baydeniro]

Sayın Ali yardımlarınız için teşekkürler.