Combined Sub Worksheet_Change代码未触发及单元格解锁问题求助

嘿，我懂你现在的困扰——工作表保护后，想实现“指定单元格填了内容才解锁对应单元格”，但解锁代码完全没起作用，对吧？作为VBA新手，从论坛扒代码修改遇到这种问题太正常了，咱们一步步来搞定它。

先理清核心问题：工作表保护的关键参数 #

你遇到的最大可能是保护工作表时没加UserInterfaceOnly:=True参数。默认情况下，工作表保护会同时限制用户操作和VBA代码操作，哪怕你写了解锁单元格的代码，也会被保护机制拦住。加上这个参数后，用户界面会被保护，但VBA能自由修改单元格的锁定状态，不用反复取消/重新保护工作表。

给你一套可直接套用的解决代码 #

我把整个流程拆成两部分，你替换成自己的工作表和单元格地址就行：

1. 初始化设置（工作簿打开时自动执行）

这段代码要放到ThisWorkbook模块里：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("你的工作表名称") '替换成你的工作表名字，比如"Sheet1"
    
    '首先确保指定的触发单元格（比如A1）始终是解锁状态，用户能输入内容
    ws.Range("A1").Locked = False
    
    '保护工作表，重点是UserInterfaceOnly:=True
    ws.Password = "可选设置密码" '如果不需要密码就删掉这行
    ws.Protect UserInterfaceOnly:=True, _
               AllowFormattingCells:=True, _ '根据你的需求添加允许的操作
               AllowSorting:=False
End Sub

2. 触发解锁的代码（指定单元格内容变化时执行）

这段代码要放到对应的工作表模块里（比如Sheet1的模块）：

Private Sub Worksheet_Change(ByVal Target As Range)
    '触发单元格是A1，你改成自己的指定单元格
    Dim triggerCell As Range
    Set triggerCell = Me.Range("A1")
    
    '要解锁的对应单元格是B1，改成你需要的单元格/单元格区域
    Dim targetCell As Range
    Set targetCell = Me.Range("B1")
    
    '判断是不是触发单元格发生了变化
    If Not Intersect(Target, triggerCell) Is Nothing Then
        '如果触发单元格有内容，就解锁目标单元格；否则锁定
        targetCell.Locked = Len(Trim(triggerCell.Value)) = 0
    End If
End Sub

关键注意事项，别踩坑！ #

• 代码放对位置：Workbook_Open必须在ThisWorkbook模块，Worksheet_Change必须在目标工作表的模块，不然不会触发。
• 初始解锁触发单元格：一定要先把触发单元格设为解锁，不然用户连输入内容的权限都没有，代码根本跑不起来。
• Trim函数的作用：用Len(Trim(triggerCell.Value))判断，能排除用户只输入空格的情况，更准确。

排查你现有代码的小技巧 #

1. 检查你原来的保护工作表代码，有没有UserInterfaceOnly:=True，没有的话加上它。
2. 确认解锁代码里的单元格地址有没有写错，比如是不是把工作表对象搞混了（比如用了ActiveSheet而不是固定的工作表）。
3. 测试时可以先去掉密码，避免密码保护带来的额外问题，没问题了再加密码。

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