Nachfolgenden erhalten Sie einen kurzen Überblick über verschiedene Themen Rund um den Excel-Blattschutz.
1. Blattschutz herstellen und das Gruppieren erlauben (Standardmäßig kann bei einem geschützten Blatt keine Gruppierung durchgeführt werden.
Privat Sub Workbook_Open()
ActiveSheet.Protect password:="Geheim" Contents:=True, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining=True
End Sub
2. Blattschutz herstellen und Gruppieren und Autofilter erlauben
Privat Sub Workbook_Open()
ActiveSheet.Protect password:="Geheim" Contents:=True, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining=True
ActiveSheet.EnableAutoFilter=True
End Sub
3. Blattschutz mit Passwort in Variable abgelegt
Public Sub Schutz()
pwd = "Geheim" oder pwd = sheets("Optionen").Range("B2").Value
ActiveSheet.Protect password:=pwd, Contents:=True, UserInterfaceOnly:=True
ActiveSheet.EnableOutlining=True
End Sub
4. Blattschutz aufheben
Public Sub Schutz_aufheben() pwd = "Geheim" oder pwd = sheets("Optionen").Range("B2").Value ActiveSheet.Unprotect (pwd) End Sub