Excel VBA シート保護されているテーブルでオートフィルタが使えない

Question

前提・実現したいこと

特定のセルに絞り込みたい氏名を入力し、「検索ボタン」押下でテーブルを入力した氏名で絞り込みをかけたい。

起きている問題

氏名を入力し「検索ボタン」を押下すると画像のエラーが出る。

（シート上でオートフィルタを直接操作することはできる。）

該当のソースコード

Sub 検索_Click()
    Dim Target As Range ' 検索する文字列
    
    ' 検索する文字列を取得
    Set Target = Range(SEARCH_CELL)
    
    If Not IsEmpty(Range(SEARCH_CELL).Value) Then
        ActiveSheet.Protect AllowFiltering:=True
        Range("A6").AutoFilter 2, "*" & Target & "*"
    End If
End Sub

Sub クリア_Click()
    ' 検索文字をクリア
    Range(SEARCH_CELL) = ""
    ' 氏名フィルタをクリア
    If ActiveSheet.ListObjects(1).AutoFilter.FilterMode Then
        ActiveSheet.ListObjects(1).AutoFilter.ShowAllData
    End If
End Sub

下記はシートを保護する処理です。

'------------------------------------------------------
' 全シートを保護する関数
'------------------------------------------------------
Function Protection()
    Dim s As Worksheet
    For Each s In ActiveWorkbook.Sheets
        s.Protect AllowFiltering:=True
    Next s
End Function

試したこと

・検索する度にシート保護の解除を行えば処理は動く（できれば避けたい）
・直接操作でオートフィルタを絞り込み、「クリアボタン」を押下すると絞り込みは解除される。

補足情報（FW/ツールのバージョンなど）

Microsoft Excel 2019

Answer 1

シート操作の前に

ActiveSheet.Protect UserInterfaceOnly:=True

を入れるのはどうですか？

Comments

[D0NKAMA]

「UserInterfaceOnly」で解決いたしました！
「UserInterfaceOnly」は盲点でした。こんな簡単なことで質問して申し訳ないですm(_ _;)m