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
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
