Office: (Office 2013) Autofilter beim Beenden zurücksetzen

Hallo,
in meiner Liste greifen viele Benutzer aus dem Netzwerk zu. Diese Liste hat mehrere Arbeitsblätter und manche mit Autofiltern. Oft kommt es vor das Mitarbeiter Filter setzen um was zu suchen und dann diese Datei so abspeichern. Sehr blöd für denjenigen der die Liste dann danach öffnet und erst mal eine gefilterte Tabelle wieder findet.

Ich habe dazu auch schon einen Code gefunden

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
If wksBlatt.FilterMode Then wksBlatt.ShowAllData
Next wksBlatt
ThisWorkbook.Save
End Sub

Der funktioniert auch soweit super. Ich muss sogar nur die Tabelle schließen und er speichert sie und setzt alle Filter wieder zurück.
Nur habe ich auch geschützte Bereiche in manchen Blättern und sobald diese aktiviert sind, funktioniert das Makro nicht mehr. Hat jemand eine Idee wie ich das hin bekomme?

Vielen Dank schon mal vorab.

 

Hallo Stefan,

meinst Du das?
If wksBlatt.FilterMode And Not wksBlatt.ProtectContents Then wksBlatt.ShowAllData

Gruß,
Lutz