用VBA设置受保护工作表允许编辑区域报错1004，求解决方案

出现这个错误通常有几个明确的诱因，对应修复方案如下：

常见问题点及修复步骤 #

• 工作表已处于保护状态：添加允许编辑区域的操作必须在工作表未保护时执行，录制宏可能没捕捉到「先解除保护」的前置步骤
• 可编辑区域标题重复：如果之前已经创建过名为Intervalo3的可编辑区域，再次添加会触发冲突错误
• Range引用不明确：直接使用Range("H18")可能因当前活动工作表并非目标表，导致引用失效

修正后的可运行代码 #

Sub SetEditableRange()
    Dim targetWs As Worksheet
    ' 替换为你的目标工作表名称，避免依赖ActiveSheet的不确定性
    Set targetWs = ThisWorkbook.Worksheets("Sheet1") 
    
    ' 1. 先解除工作表保护（如果已处于保护状态）
    If targetWs.ProtectContents Then
        ' 若工作表设置了保护密码，需添加参数：targetWs.Unprotect Password:="你的密码"
        targetWs.Unprotect 
    End If
    
    ' 2. 删除已存在的同名可编辑区域（避免标题重复报错）
    On Error Resume Next ' 忽略找不到对应区域的错误
    targetWs.Protection.AllowEditRanges("Intervalo3").Delete
    On Error GoTo 0 ' 恢复默认错误处理逻辑
    
    ' 3. 添加指定的可编辑区域
    targetWs.Protection.AllowEditRanges.Add Title:="Intervalo3", Range:=targetWs.Range("H18")
    
    ' 4. 重新保护工作表
    ' 若需要设置保护密码，添加参数：Password:="你的密码"
    targetWs.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

关键说明 #

• 务必将代码中的"Sheet1"替换为你实际操作的工作表名称
• 如果工作表保护时设置了密码，需要在Unprotect和Protect语句中补充密码参数
• 若能确保不会重复创建同名可编辑区域，可以跳过「删除已存在区域」的步骤

内容的提问来源于stack exchange，提问作者Bruno Colares