Autofilter trotz Blattschutz ermöglichen

Normalerweise funktioniert bei eingeschaltetem Blattschutz der Autofilter nicht mehr. Dabei spielt es keine Rolle, ob das Blatt über Extras->Schutz->Blatt schützen oder über eine VBA-Prozedur geschützt wurde.

Mit folgendem Code wird es jedoch ermöglicht, dass der Autofilter trotz Blattschutz funktioniert.

 Sub AutofilterBeiBlattschutz() 
ActiveSheet.Protect userinterfaceonly:=True
' im geschützten Blatt arbeiten 
ActiveSheet.EnableAutoFilter = True
End Sub

 Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True
' im geschützten Blatt arbeiten 
ActiveSheet.EnableAutoFilter = True
End Sub

Dieser Code unterscheidet sich nur in der ersten Zeile. Sub Workbook_Open()  bewirkt, dass die Prozedur beim Starten der Datei ausgeführt wird.