gibt es eine Möglichkeit (ggf. auch VBA) für alle oder auch für mehrere selektierte Tabellenblätter gleichzeitig den Blattschutz einzugeben bzw. aufzuheben?
Wäre toll wenn jemand eine Lösung wüßte.
Gruß, Harald G.
Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub
Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub