Hallo,

folgdene Problemstellung:

- Exceldatei mit  12 Tabellenblättern, Blattschutz auf diverse Dinge, so dass Bearbeitung nur begrenzt möglich ist.

- Mehrere Daten wurden gruppiert.

- Es gibt diverse Filteroptionen

- Der Blattschutz blockiert jedoch das ausführen der Gruppierung und der Filter.

Folgendes Skript hat das Problem für EIN Tabellenblatt gelöst:

Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="HIER PASSSWORT VORSTELLEN"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub

Ich bekomme es aber nicht hin, dass das Skript auf allen Tabellenblättern ausgeführt wird. Hat jemand eine Idee?

Grüße