Office: (Office 365) Blattschutz VBA mit PW und Bedingungen

Hallo VBA'ler

Kenne mich nicht wirklich mit VBA aus, habe es aber geschafft, eine mit PW geschützte Tabelle via Button zu entsperren und wieder zu sperren.
Der Button dient dazu, die gesetzten Filter Rückgängig zu machen.

Folgendes Problem habe ich nun:
Beim schützen des Blattes musste ich div. Haken setzen bei Funktionen welche trotzdem verwendet werden dürfen, unter anderem natürlich bei "AutoFilter verwenden".

Wenn ich jetzt das Blatt schütze, funktioniert das mit dem Autofilter.
Wenn ich dann jedoch den Button mit dem VBA Code drücke um den Filter rückgängig zu machen, funktioniert das Filtern nicht mehr.

Ich gehe davon aus, dass der VBA Code dann die Haken nicht mehr setzt!?
Oder liegt das Problem an einem anderen Ort?
Wie kann ich das Problem beheben?

Nachfolgend der VBA Code:
Sub FilterEntfernen()
'
' FilterEntfernen Makro
' Makro neu 12.05.2016 / TL;RF
Worksheets("Liste Offerten").Unprotect Password:="TEST"
Cells.Select
ActiveWorkbook.Worksheets("Liste Offerten").AutoFilter.Sort.SortFields.Clear
ActiveSheet.ShowAllData
Worksheets("Liste Offerten").Protect Password:="TEST"
End Sub

Hoffe es kann mir jemand helfen.

Besten Dank im voraus und beste Grüsse
Roman

 

Halo Roman,

zeichne das setzen des Schutzes mit dem Makrorecorder auf.
Du setzt Autofolter nicht.