Autofilter funktioniert nach Blattschutz nicht

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("Kataloge").Unprotect Password:="Wago1234"
Dim LetzteZ As Long, Liste As Range, Eintrag As Range
If Target.Cells.Count = 1 And Target.Column = 7 Then
LetzteZ = Cells(Rows.Count, 11).End(xlUp).Row
Set Liste = Range(Cells(6, 11), Cells(LetzteZ, 11))
Select Case Target.Value
Case Is = "ü"
Set Eintrag = Liste.Find(Target.Offset(, -5).Value, LookIn:=xlValues)
Eintrag.ClearContents
Target.Value = vbNullString: Cancel = True
Case Else
Target.Value = "ü"
Cells(LetzteZ + 1, 11) = Target.Offset(, -5): Cancel = True
End Select
End If
Worksheets("Kataloge").Protect Password:="Wago1234"
End Sub