保护Excel工作表后VBA搜索栏失效，如何兼容保护与搜索功能？

方法1：手动保护时开启自动筛选权限 #

直接在保护工作表时勾选允许自动筛选的权限，操作步骤：

• 右键目标工作表标签 → 选择「保护工作表」
• 在弹出的对话框中，勾选「使用自动筛选」选项，按需设置保护密码后点击确定

完成这步操作后，你原来的VBA代码就能正常运行了。

方法2：通过VBA临时取消保护再恢复（更适配带密码场景） #

如果需要代码自动处理保护逻辑，避免手动设置遗漏，可以修改你的代码，在执行筛选前临时取消工作表保护，完成操作后重新保护：

Private Sub TextBox1_Change()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 建议替换为具体工作表名，比如Set ws = ThisWorkbook.Worksheets("你的表名")
    
    Application.ScreenUpdating = False
    
    ' 临时取消保护，有密码就把""替换成你的密码，比如"123456"
    ws.Unprotect Password:=""
    
    ' 执行筛选（原代码中Criteria1和Criteria2重复，简化后保留一个即可）
    ws.ListObjects("AllDepartments").Range.AutoFilter Field:=2, Criteria1:="*" & Range("E1").Value & "*"
    
    ' 重新保护工作表，开启用户界面保护+允许筛选权限，有密码则填入对应内容
    ws.Protect Password:="", UserInterfaceOnly:=True, AllowFiltering:=True
    
    Application.ScreenUpdating = True
End Sub

关键参数说明： #

• UserInterfaceOnly:=True：仅限制用户手动操作，VBA代码可不受保护限制修改工作表，设置一次后后续无需重复取消保护
• AllowFiltering:=True：明确允许自动筛选操作
• 替换ActiveSheet为具体工作表名，能避免切换工作表时代码出错

内容的提问来源于stack exchange，提问作者Krista Zakis