Ich möchte gerne den Schutz mehrer Blätter gleichzeitig aufheben und vieder herstellen - geht das? Mit strg und markieren ist es mir nicht gelungen.
Für einen Tipp wäre ich sehr dankbar.
Grüße tobias
Sub SchutzAn()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Protect Password:="deinPasswort"
Next
End Sub
Sub SchutzAus()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Unprotect Password:="deinPasswort"
Next
End Sub
Gruß Sepp
<font color=blue>P.S.: Rückmeldung nicht vergessen!</font>
<hr noshade style="height:5px; background-color:#EEEEEE; border:1px solid blue">