Kann ich bei ca. 80 Tabellen den Blattschutz mit ein paar Mausklicks(oder ähnlich) aufheben oder wieder schützen.
Danke im Voraus HG
Sub Passwort_EIN()
For Each sh In Sheets
sh.Protect Password = "EIN"
Next sh
End Sub
Sub Passwort_AUS()
For Each sh In Sheets
sh.Unprotect Password = "EIN"
Next sh
End Sub