Gliederung bei Zellenschutz
Roman
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableOutlining r = True für Gliederung
ActiveSheet.EnableAutoFilter = True für Autofilter
End Sub
Private Sub Workbook_Open()
With Worksheets(1)
.Protect Password:="Dein Kennwort", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub