Excel受保护工作表动态锁定/解锁功能实现求助

核心问题分析 #

你的原宏报错是因为Excel工作表处于保护状态时，无法直接修改单元格的Locked属性，必须先临时解除保护，修改完成后再重新保护工作表。同时原代码只处理了K7，未覆盖K6的触发条件，需要补充。

修改后的VBA代码（工作表模块） #

将以下代码粘贴到目标工作表的代码模块中（右键工作表标签→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在K6或K7单元格内容变化时执行，避免冗余触发
    If Not Intersect(Target, Range("K6:K7")) Is Nothing Then
        Dim ws As Worksheet
        Set ws = Me
        
        ' 临时解除工作表保护（有密码则替换""为实际密码）
        ws.Unprotect Password:=""
        
        ' 判断是否满足解锁条件：K6或K7为"Blank"
        Dim unlockFlag As Boolean
        unlockFlag = (ws.Range("K6").Value = "Blank") Or (ws.Range("K7").Value = "Blank")
        
        ' 设置目标区域的锁定状态：满足条件则解锁（Locked=False），否则锁定
        ws.Range("A7:D10,A12:D15").Locked = Not unlockFlag
        
        ' 重新保护工作表，关键参数UserInterfaceOnly:=True允许VBA修改锁定状态
        ws.Protect Password:="", UserInterfaceOnly:=True
    End If
End Sub

关键补充：工作簿打开时重置保护属性 #

由于UserInterfaceOnly:=True的设置在Excel重启后会失效，需要在ThisWorkbook模块中添加以下代码，确保每次打开工作簿时自动恢复该属性：

Private Sub Workbook_Open()
    ' 替换"你的工作表名称"为实际工作表名，有密码则替换""为密码
    ThisWorkbook.Worksheets("你的工作表名称").Protect Password:="", UserInterfaceOnly:=True
End Sub

注意事项 #

• 如果工作表设置了保护密码，务必将代码中所有Password:=""的空字符串替换为实际密码
• 确保Excel启用宏功能（文件→选项→信任中心→信任中心设置→宏设置→启用所有宏，或按提示启用此工作簿的宏）
• 初始状态下，目标区域（A7:D10、A12:D15）的Locked属性建议设为True（默认状态），宏会根据条件自动切换

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