ich habe im Archiv zum Problem Gliederung von Zeilen trotz Blattschutz folgenden Code gefunden:
Private Sub Workbook_Open()
With Sheets("Tabelle1")
.Protect UserInterfaceOnly:=True, Password:="xxx"
.EnableOutlining = True ' Für Gliederung
End With
End Sub
Läuft auch soweit gut und funktioniert.
Jetzt möchte ich aber diesen Code für viele alle Arbeitsblätter haben (ca. 13).
Kann ich es umgehen, dieses 13 mal zu Kopieren und die Namen der Sheets manuell einzufügen?
Bin leider blind in VBA.
Gruß
Thomas