Verschiedenes Rund um den Blattschutz

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