EnableAutoFilter = True zeigt keine Wirkung

Hallo zusammen,
mir ist es fast schon unangenehm zu fragen, aber ich glaube, dass ich inzwischen vor lauter Bäumen den Wald nicht mehr sehe.
Ich stehe vor folgendem Problem:
Trotz Blattschutz soll die Auto-Filter Funktion möglich sein. Ich bin davon ausgegangen, dass sich dies Problemlos über "EnableAutoFilter = True" umsetzen lässt. Nachdem ich jetzt das Internet abgesucht habe und alle möglichen versionen durchgetestet habe muss ich doch um Hilfe bitten - es funktioniert leider nicht:(.
Vielleicht sieht ja jemand den Fehler auf den ersten Blick.

Private Sub Workbook_Open()
Dim wSheet As Worksheet
Worksheets("Tabelle1").Unprotect Password:="XXX"
Worksheets("Tabelle1").Range("T5:T10000").Locked = True
Worksheets("Tabelle1").Range("T5:T296").Locked = False
For Each wSheet In Worksheets
wSheet.Protect userinterfaceonly:=True, Password:="XXX"
wSheet.EnableAutoFilter = True
Next wSheet
Worksheets("Tabelle1").Select
Cells(1, 1).Select
End Sub