Excel VBA运行时错误1004：受保护工作表自动隐藏行失效求助

问题核心 #

工作表保护后，触发行隐藏的VBA代码报运行时错误1004（无法设置Range类的Hidden属性），即使在代码中先取消保护再重新允许行格式设置，问题仍存在，且不想开放用户的行格式操作权限。

关键原因 #

你修改后的代码中使用的AllowFormattingRows:=True是开放用户手动设置行格式的权限，而非让VBA代码绕过保护限制。要让VBA在工作表保护状态下仍能修改行隐藏属性，需要用到UserInterfaceOnly:=True参数——该参数仅限制用户界面操作，VBA代码不受保护约束。

解决方案 #

方法1：一次性设置保护（推荐） #

在工作表激活事件或工作簿打开事件中设置一次保护，添加UserInterfaceOnly:=True，后续VBA代码无需反复取消/重新保护：

Private Sub Worksheet_Activate()
    ' 仅保护用户界面，VBA可正常操作
    Me.Protect Password:="abc", UserInterfaceOnly:=True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    Application.ScreenUpdating = False
    For Each xRg In Me.Range("C24,C52,C81,C90:C123,A124:A126,A130:A353")
        xRg.EntireRow.Hidden = (xRg.Value = "")
    Next xRg
    Application.ScreenUpdating = True
End Sub

方法2：在Change事件中处理（兼容场景） #

如果必须在Change事件内完成取消/重新保护，需确保重新保护时添加UserInterfaceOnly:=True，同时用Me指代当前工作表（比硬编码工作表名称更可靠）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Me.Unprotect Password:="abc"
    Dim xRg As Range
    Application.ScreenUpdating = False
    For Each xRg In Me.Range("C24,C52,C81,C90:C123,A124:A126,A130:A353")
        xRg.EntireRow.Hidden = (xRg.Value = "")
    Next xRg
    Application.ScreenUpdating = True
    ' 重新保护时启用UserInterfaceOnly，VBA后续操作无需再取消保护
    Me.Protect Password:="abc", UserInterfaceOnly:=True
End Sub

注意事项 #

• UserInterfaceOnly:=True的设置在Excel重启后会失效，因此建议在Workbook_Open事件中也添加一次保护设置，确保每次打开文件都生效。
• 用Me指代当前工作表，避免因工作表名称修改导致代码失效。

内容的提问来源于stack exchange，提问作者C.H.Miller