Gruppe
Allgemein
Problem
Über die Schaltflächen soll der Blattschutz für alle Tabellenblätter gesetzt bzw. aufgehoben werden.
StandardModule: Modul1
Sub YesProtect()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect "MeinPasswort"
Next wks
End Sub
Sub NoProtect()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Unprotect "MeinPasswort"
Next wks
End Sub