Blattschutz und gruppieren

[Lukas94]

Guten morgen,

ich nutze eine Tabelle mit 2 Worksheets und habe einen Blattschutz für diese eingerichtet. Desweiteren habe ich einige Zeilen/spalten gruppiert.
Mit dem Blattschutz lassen diese sich nicht ausklappen, um dies doch zu können benutze ich folgendes Makro:

Sub Workbook_Open()

ActiveSheet.Protect userinterfaceonly:=True, Password:="gruppieren"

ActiveSheet.EnableOutlining = True 'für Gliederung

ActiveSheet.EnableAutoFilter = True 'für Autofilter

End Sub


Funktioniert soweit ganz gut. problem ist nur wenn ich die Datei schließe und öffne greift das Makro nur auf dem Worksheet welches ich beim schließen und öffnen ausgewählt habe.
Springe ich zum anderen greift der Blattschutz und ich kann die Gruppierungen nicht nutzen, bis ich das Makro manuel ausführe.

Gibt es eine Möglichkeit dies dauerhaft bei beiden auszuführen?


Vielen Dank im voraus für die Ratschläge

MFG Lukas

[bug99]

bin zwar nicht der VBA-Spezialist

aber ActiveSheet  bedeutet doch wohl dass, sich der code nur auf das aktuell aktive sheet bezieht

[Lukas94]

Das ist richtig, sobald ich aber ja das Blatt wechsle ist es ja das aktive und wie beschrieben, führe ich das makro aktiv aus klappt auch alles.

Trozdem danke für die Antwort.

MFG Lukas

[bug99]

und durch welches Ereignis sollte dann beim Blattwechsel dein Makro "automatisch" nochmals starten?

[schauan]

Hallöchen,

wenn man ein bestimmtes Blatt will, nimmt man den Blattnamen und nicht ActiveSheet.

z.B.

Sheets("MeinTabellenName").xxx

oder

Tabelle1.xxx