求助：如何在单个工作表中整合三个Worksheet_Change事件

别担心，刚接触VBA的Worksheet_Change事件很容易遇到多个同事件过程冲突的问题，我帮你把已有的两个事件逻辑整合到同一个过程里，这样就不会出问题啦。

首先要明确：同一个工作表里不能存在多个同名的Worksheet_Change过程，所以必须把所有业务逻辑合并到一个Sub中。下面是整合好的完整代码，我还补充了你没写完的第二个事件的逻辑（从你给的代码片段看是针对C列的）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rC As Range
    Dim ws As Worksheet
    Set ws = Me '指代当前工作表
    
    '禁用事件触发，防止写入操作循环触发Change事件
    Application.EnableEvents = False
    
    '错误处理：确保即使代码出错，也能恢复事件触发状态
    On Error GoTo Cleanup
    
    '----------第一个事件逻辑：修改B列时写入时间和系统用户名----------
    If Not Intersect(Target, ws.Range("B:B")) Is Nothing Then
        For Each rC In Target.Cells
            ws.Range("F" & rC.Row).Value = Now() '写入当前系统时间
            ws.Range("G" & rC.Row).Value = Environ("username") '写入当前系统登录用户名
        Next rC
    End If
    
    '----------第二个事件逻辑：修改C列后锁定单元格----------
    If Not Intersect(Target, ws.Range("C:C")) Is Nothing Then
        '注意：Excel默认单元格是锁定状态，但只有工作表被保护时才会生效
        '先解除工作表保护（如果你的工作表设置了保护密码，把""替换成你的密码）
        ws.Unprotect Password:=""
        
        '这里设置所有单元格为锁定状态，如果只想锁定当前修改的单元格，可改成 Target.Locked = True
        ws.Cells.Locked = True
        
        '重新保护工作表，UserInterfaceOnly:=True 表示用户界面无法编辑，但VBA代码可以修改单元格
        ws.Protect Password:="", UserInterfaceOnly:=True
    End If

Cleanup:
    '恢复事件触发状态
    Application.EnableEvents = True
    '如果代码执行出错，弹出提示
    If Err.Number <> 0 Then
        MsgBox "代码执行出错：" & Err.Description, vbExclamation
    End If
End Sub

关键细节说明： #

• 事件开关的必要性：开头的Application.EnableEvents = False是核心，不然写入时间/用户名的操作会再次触发Worksheet_Change事件，导致无限循环；通过错误处理标签Cleanup，能保证即使代码中途出错，事件触发状态也能恢复，避免后续无法使用Change事件。
• 单元格锁定的逻辑：Excel单元格默认是锁定的，但只有在工作表保护后才会生效。代码里先解除保护、设置锁定、再重新保护的流程，是为了确保锁定操作能正常生效，同时UserInterfaceOnly:=True参数能让VBA代码继续编辑单元格，不影响后续的业务逻辑。
• 范围判断优化：用Intersect判断修改的单元格（Target）是否在目标列（B列或C列），如果不在就跳过对应逻辑，避免不必要的代码执行。

如果你提到的第三个事件还有其他具体逻辑，可以随时补充，我帮你继续整合到这个过程里~

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