Gruppierung trotz Blattschutz

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

Leider funktioniert es nur, wenn ich nach Neustart der Excel das Makro ausführen und nicht automatisch nach Start. Wie kann ich das einstellen?
Schon mal vielen Dank
Monti