Autofilter setzen trotz Blattschutz

Public Sub Zeile_mit_Datum4()
unprotectSheets
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim letzteQuelle As Long
Dim letzteZiel As Long
Dim vorhanden As Boolean
Dim x As Long
vorhanden = False
Set wsQuelle = Sheets("Action List Long Term Range")
Set wsZiel = Sheets("finished actions")
letzteQuelle = wsQuelle.Cells(Rows.Count, 14).End(xlUp).Row
letzteZiel = wsZiel.Cells(Rows.Count, 14).End(xlUp).Row + 1
With wsQuelle
For x = letzteQuelle To 6 Step -1
If IsDate(Cells(x, 14)) Then
wsZiel.Cells(letzteZiel, 2).Resize(, 13).Value = .Cells(x, 2).Resize(, 13).Value
.Cells(x, 2).Resize(, 13).Delete xlUp
letzteZiel = letzteZiel + 1
vorhanden = True
End If
Next x
If vorhanden = False Then
MsgBox "No finished action was" & vbLf & "found in the list." _
& vbLf & vbLf & "No data transmitted!!", , "Hinweis für " & Environ("UserName")
End If
End With
protectSheets
End Sub

Public Sub unprotectSheets()

Dim Tabellenblatt As Worksheet

For Each Tabellenblatt In ThisWorkbook.Sheets

Tabellenblatt.Unprotect "bla"

Next Tabellenblatt

End Sub

Public Sub protectSheets()

Dim Tabellenblatt As Worksheet

For Each Tabellenblatt In ThisWorkbook.Sheets

Tabellenblatt.Protect "bla"

Tabellenblatt.EnableOutlining = True

Tabellenblatt.EnableAutoFilter = True

Next Tabellenblatt

End Sub