Gruppe
Allgemein
Bereich
Blattschutz
Thema
Blattschutz mit und ohne Passwort aufheben und setzen
Problem
Der Blattschutz für einzelne oder alle Arbeitsblätter soll mit oder ohne Passwort gesetzt und aufgehoben werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub ProtectA()
ActiveSheet.Protect
End Sub
Sub ProtectB()
ActiveSheet.Unprotect
End Sub
Sub ProtectC()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect
Next wks
End Sub
Sub ProtectD()
Dim wks As Worksheet
For Each wks In Worksheets
ActiveSheet.Unprotect
Next wks
End Sub
Sub ProtectE()
ActiveSheet.Protect "HWH"
End Sub
Sub ProtectF()
ActiveSheet.Unprotect "HWH"
End Sub