Excel VBA锁定行列异常：设置特定行列解锁后所有单元格被解锁

核心问题：缺少工作表保护步骤 #

单元格的Locked属性只有在工作表被保护时才会生效。你的代码只设置了单元格锁定/解锁状态，但没有开启工作表保护，所以所有单元格都能编辑，看起来像是全解锁了。

另外，之前出现的Error: Unable to set the Locked property of the Range class错误，通常是以下原因：

• 工作表已经处于保护状态，此时无法修改单元格的Locked属性
• 目标单元格处于编辑模式，或者包含合并单元格、受保护的对象

修正后的代码 #

Sub SetProtectedRange()
    Dim ws As Worksheet
    Dim globalPassword As String
    
    ' 指定目标工作表，比如Sheet1，根据实际修改
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 先解除工作表保护（如果之前已经保护），避免修改Locked属性报错
    On Error Resume Next
    ws.Unprotect Password:="SheetProtectPass" ' 替换为你的工作表保护密码，没有则留空
    On Error GoTo 0
    
    ' 1. 先锁定所有单元格
    ws.Cells.Locked = True
    Debug.Print "所有单元格已锁定"
    
    ' 2. 验证全局密码
    globalPassword = InputBox("请输入全局密码:", "需要全局密码")
    If globalPassword = "GO123" Then
        ' 解锁指定区域：1-7行 以及 A-C列
        ws.Rows("1:7").Locked = False
        ws.Columns("A:C").Locked = False
        Debug.Print "1-7行和A-C列已解锁"
        
        ' 3. 开启工作表保护，这一步是关键！
        ws.Protect Password:="SheetProtectPass", UserInterfaceOnly:=True
        ' UserInterfaceOnly:=True 表示VBA仍能修改单元格，不需要每次都解除保护
        MsgBox "1-7行和A-C列已解锁，工作表已保护。", vbInformation
    Else
        ' 如果密码错误，直接保护工作表，所有单元格保持锁定
        ws.Protect Password:="SheetProtectPass", UserInterfaceOnly:=True
        MsgBox "密码错误，拒绝访问。", vbExclamation
        Exit Sub
    End If
End Sub

关键注意事项 #

• 必须开启工作表保护：没有这一步，Locked属性完全不起作用，这是你之前看到全单元格可编辑的根本原因。
• 提前解除保护：修改Locked属性前，要确保工作表处于未保护状态，否则会抛出“无法设置Locked属性”的错误。
• UserInterfaceOnly参数：设置为True后，后续VBA代码操作单元格时不需要反复解除保护，只需要在第一次保护时设置即可。
• 密码管理：工作表保护密码和全局密码可以分开设置，根据实际需求调整。

内容的提问来源于stack exchange，提问作者Gabriel Sploosh Cabriga