Excel VBA设置Range的Locked属性报错，请求排查问题

核心原因及说明 #

报错的问题不是Range和Cells的关联处理错误，主要由以下两点导致：

1. 工作表处于保护状态：默认单元格Locked属性为True，但只有工作表被保护时该属性才生效。若工作表未解锁，直接修改Locked属性会触发报错。
2. 代码写法冗余：你用Range(Cells(j,k), Cells(j,k))引用单个单元格完全没必要，直接用Cells(j,k)即可，冗余写法不影响功能，但会降低代码可读性与效率。

修正后的代码 #

方式一：先解除保护，修改后按需重新保护

Dim ws As Worksheet
Dim j As Long, k As Long
Dim targetColor As Long ' 避免和内置Color属性冲突，建议改名

targetColor = RGB(255, 0, 0) ' 替换为你的目标颜色值

For Each ws In ActiveWorkbook.Worksheets
    ' 解除保护，有密码则添加参数：ws.Unprotect "你的密码"
    ws.Unprotect
    
    For j = 1 To 2000
        For k = 1 To 500
            If ws.Cells(j, k).Interior.Color = targetColor Then
                ws.Cells(j, k).Locked = False ' 直接操作单元格，无需嵌套Range
            End If
        Next k
    Next j
    
    ' 可选：重新保护工作表，开启UserInterfaceOnly后，VBA可直接修改属性无需反复解锁
    ws.Protect UserInterfaceOnly:=True
Next ws

方式二：保留工作表保护，开启UserInterfaceOnly

若不想反复解锁工作表，保护时设置UserInterfaceOnly:=True，即可让VBA直接修改单元格属性，同时保留用户界面的保护：

' 只需执行一次保护（文件重新打开后可能需重新设置）
ActiveSheet.Protect UserInterfaceOnly:=True

' 后续修改Locked属性的代码无需解锁
Dim ws As Worksheet
Dim j As Long, k As Long
Dim targetColor As Long

targetColor = RGB(255, 0, 0)

For Each ws In ActiveWorkbook.Worksheets
    For j = 1 To 2000
        For k = 1 To 500
            If ws.Cells(j, k).Interior.Color = targetColor Then
                ws.Cells(j, k).Locked = False
            End If
        Next k
    Next j
Next ws

额外优化建议 #

• 避免使用color作为变量名：VBA内置有Color属性，容易引发命名冲突，改用targetColor这类明确名称。
• 提升循环效率：三层循环遍历100万个单元格效率极低，可改用UsedRange缩小遍历范围，或用Find方法定位目标颜色单元格，减少无效遍历。
• 确认颜色变量赋值正确：确保targetColor是通过RGB()函数或获取指定单元格颜色（如Range("A1").Interior.Color）得到的有效值，否则判断条件永远不成立。

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