VBA单宏切换工作表指定区域保护状态时无法解除保护问题求解

问题根源 #

• 现有代码仅包含单元格锁定+工作表保护的单向逻辑，未添加保护状态判断分支，无法实现切换功能
• 循环内反复执行解锁/保护操作，冗余且容易出现状态异常
• 没有将当前工作表的保护状态作为切换依据

修正后可实现切换功能的代码 #

Sub lockcells()
    Dim Rng As Range
    Dim MyCell As Range
    Const PWD As String = "123"
    Set Rng = Range("A1:D20")
    
    ' 以当前工作表保护状态作为切换判断依据
    If ActiveSheet.ProtectContents = True Then
        ' 已保护状态下执行解除保护操作
        ActiveSheet.Unprotect Password:=PWD
        ' 如果需要解除保护同时恢复区域可编辑属性，取消下方三行注释即可
        ' For Each MyCell In Rng
        '     MyCell.Locked = False
        ' Next
    Else
        ' 未保护状态下执行区域锁定操作
        ActiveSheet.Unprotect Password:=PWD ' 兼容之前遗留的未正常解除的保护状态
        ' 若需直接锁定整个A1:D20区域，可删除下方循环，直接使用下一行代码
        ' Rng.Locked = True: Rng.FormulaHidden = False
        For Each MyCell In Rng
            If MyCell.Value <> "" Then
                MyCell.Locked = True
                MyCell.FormulaHidden = False
            Else
                MyCell.Locked = False ' 空单元格保留可编辑权限，和原有逻辑一致
            End If
        Next
        ActiveSheet.Protect Password:=PWD, UserInterFaceOnly:=True
    End If
End Sub

功能说明 #

• 新增工作表保护状态判断逻辑，实现单次运行锁定、再次运行解除的切换效果
• 把解锁/保护操作移到循环外，避免重复执行提升运行效率
• 保留原有仅锁定非空单元格的逻辑，同时标注了直接锁定全区域的替换方案
• 密码统一设为常量，后续修改仅需调整一处即可

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