Protect Methode und Freigabe von Arbeitsmappen

mein Problem lautet wie folgt:

Ich möchte ein Arbeitsmappe freigeben, in der eine durch Blattschutz gesperrte Tabelle enthalten ist. Gleichzeitig möchte ich den Autofilter nutzen.

Folgende Prozedur zum Aktivieren des Autofilters beim Öffnen der Datei (aus der Excel Hilfe) funktioniert leider nicht in freigegebenen Arbeitsmappen, da die Protect-Methode nicht ausgeführt werden kann:

Private Sub Workbook_Open()
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub

Kennt jemand eine Lösung, wie ich dieses Problem per VBA umgehen kann?

Danke & Gruß
Armin