Privat Sub Workbook_Open()

ActiveSheet.Protect password:="Geheim" Contents:=True, UserInterfaceOnly:=True

ActiveSheet.EnableOutlining=True

End Sub

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

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

Public Sub Schutz_aufheben()

pwd = "Geheim" oder pwd = sheets("Optionen").Range("B2").Value

ActiveSheet.Unprotect (pwd)

End Sub