同工作表两个Worksheet Change事件合并后失效，寻求技术帮助

哦，这个问题我太熟悉了！你踩了一个VBA工作表事件的经典坑——同一个工作表里只能存在一个Worksheet_Change事件过程。如果你写了两个独立的Worksheet_Change，VBA只会执行最后编写的那个，第一个解锁范围的逻辑直接被覆盖了，这就是它失效的核心原因！

为什么会失效？ #

工作表事件是绑定到特定工作表模块的，每个事件类型（比如Change、SelectionChange）在一个模块里只能有一个对应的过程。当你写了第二个Worksheet_Change时，VBA会自动忽略第一个，所以只有隐藏单元格的逻辑能正常运行。

正确的解决思路：把两个逻辑整合到同一个事件过程中 #

你需要把解锁范围和隐藏单元格的触发条件，都放到同一个Worksheet_Change过程里，通过判断目标单元格（Target）的位置和状态，来执行对应的操作。同时还要注意几个关键细节，避免触发循环事件或者出错。

示例代码（根据你的需求调整） #

假设解锁逻辑由单元格A1从空变非空触发，隐藏逻辑由单元格B1的值变更触发，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先关闭事件触发，防止操作单元格时再次触发Change事件，造成循环
    Application.EnableEvents = False
    
    ' 添加错误处理，确保即使出错，事件触发也能恢复
    On Error GoTo Cleanup

    ' 逻辑1：单元格从空变为非空时解锁指定范围
    ' 替换A1为你的触发单元格，替换B2:D10为需要解锁的范围
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        ' 判断是否从空变为非空
        If Target.Value <> "" And Target.Value <> Empty Then
            ' 如果工作表有保护，先解除保护（可选，根据你的实际情况）
            ' Me.Unprotect Password:="你的保护密码"
            
            ' 解锁指定范围
            Me.Range("B2:D10").Locked = False
            
            ' 重新保护工作表（可选，建议开启UserInterfaceOnly避免重复解锁）
            ' Me.Protect Password:="你的保护密码", UserInterfaceOnly:=True
        End If
    End If

    ' 逻辑2：单元格值变更时触发单元格隐藏事件
    ' 替换B1为你的触发单元格，根据实际需求修改隐藏逻辑
    If Not Intersect(Target, Me.Range("B1")) Is Nothing Then
        Select Case Target.Value
            Case "隐藏列"
                Me.Columns("C:E").Hidden = True
            Case "显示列"
                Me.Columns("C:E").Hidden = False
            Case Else
                ' 其他值的处理逻辑（可选）
        End Select
    End If

Cleanup:
    ' 必须恢复事件触发，否则后续所有工作表事件都会失效
    Application.EnableEvents = True
    ' 如果有错误，弹出提示
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbExclamation
    End If
End Sub

关键注意事项 #

• 替换占位内容：把代码里的触发单元格、解锁范围、隐藏逻辑，全部替换成你实际的需求。
• 处理工作表保护：如果你的工作表是保护状态，记得使用UserInterfaceOnly:=True参数，这样后续修改单元格锁定状态时，不需要反复解除保护。
• 判断多单元格变更：如果用户一次性修改多个单元格，Intersect方法能确保只有目标单元格在指定范围内时才执行逻辑，避免误触发。
• 错误处理不能少：如果代码执行中出错，Cleanup标签里的代码会确保Application.EnableEvents恢复为True，不然你的工作表事件会全部失效，得重启Excel才能恢复。

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