Ændring af VBA kode

Jeg har denne kode, som virker perfekt når mine ark ikke er arkbeskyttet. Nu er jeg blevet nødsaget at arkbeskytte (uden kode) 2 ark, så nu vil koden ikke rydde autofiltret i de beskyttede ark.
Er der en VBA ekspert der kan hjælpe med at redigere koden så den også kan rydde de beskyttede ark?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each ws In ThisWorkbook.Worksheets
        If ws.FilterMode = True Then
            ws.ShowAllData
        End If
    Next ws
End Sub