Hallo,
diese Frage wurde schon im Forum gestellt, so z.B.
hier. Da du ja mehrere Arbeitsblätter hast, habe ich den Code so umgeschrieben, dass für alle Blätter in der Arbeitsmappe die Freigabe erfolgt.
Du musst den folgenden Code in das
VBA-Projekt deiner Arbeitsmappe einfügen:
Sub Workbook_Open()
Dim i As Long
For i = 1 To ThisWorkbook.Worksheets.Count
With Sheets(i)
.Protect UserInterfaceOnly:=True, Password:="Passwort"
.EnableOutlining = True ' Für Gliederung
.EnableAutoFilter = True ' Für AutoFilter
End With
Next i
End Sub
Das Passwort musst du natürlich entsprechend anpassen (ich gehe davon aus, dass es immer das Selbe ist). Falls du kein Passwort vergeben hast, dann ändere die Zeile
.Protect UserInterfaceOnly:=True, Password:="Passwort"
in
.Protect UserInterfaceOnly:=True
Beim nächsten Öffnen der Arbeitsmappe kannst du die Gliederung trotz Blattschutz ausführen.
Gruß
M.O.