VBA多工作表单元格保护报错：‘对象不支持该属性或方法’的解决办法

首先得点出你代码里的核心问题：Range对象根本没有Protect方法，这个方法是属于Worksheet（工作表）对象的，你直接调用Range.Protect自然会弹出“对象不支持该属性或方法”的错误。

要实现“保护工作簿中所有工作表的C7:P16区域”这个需求，正确的逻辑是通过工作表保护+单元格锁定状态来实现的——默认情况下，Excel单元格的Locked属性是True，当你保护工作表时，所有锁定的单元格都会被禁止编辑。所以我们需要先调整单元格的锁定状态，再对工作表进行保护。

下面是修正后的完整代码：

1. 保护指定区域的代码（secure过程） #

Sub secure()
    Dim ws As Worksheet
    Dim protectedRange As Range
    
    ' 遍历工作簿里的每一张工作表
    For Each ws In ActiveWorkbook.Sheets
        ' 先判断工作表是否已被保护，是的话先取消（不然没法修改单元格锁定状态）
        If ws.ProtectContents Then
            ws.Unprotect Password:="30713"
        End If
        
        ' 步骤1：把工作表所有单元格设为未锁定（这样保护后这些区域仍可编辑）
        ws.Cells.Locked = False
        ' 步骤2：把需要保护的C7:P16区域设为锁定状态
        Set protectedRange = ws.Range("C7:P16")
        protectedRange.Locked = True
        
        ' 步骤3：保护工作表，同时设置密码
        ws.Protect Password:="30713", UserInterfaceOnly:=True
        ' UserInterfaceOnly设为True的好处：后续VBA可以直接修改工作表内容，不用反复取消/重新保护
    Next ws
End Sub

2. 取消所有工作表保护的代码（desecure过程） #

Sub desecure()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Sheets
        ' 检查工作表是否处于保护状态，是的话取消保护
        If ws.ProtectContents Then
            ws.Unprotect Password:="30713"
        End If
    Next ws
End Sub

几个实用细节： #

• 用For Each ws In ActiveWorkbook.Sheets遍历工作表，比通过索引计数的写法更直观，也不容易出错
• UserInterfaceOnly:=True这个参数非常实用：它让工作表在用户界面层面是受保护的，但你的VBA代码可以直接操作单元格内容，省去了每次操作都要先取消保护的麻烦
• 修改单元格锁定属性前，必须确保工作表处于未保护状态，否则会触发权限错误

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