Excel同时打开多工作簿时VBA代码跨工作簿误触发修改问题

代码中所有Cells()调用均未显式指定所属工作表与工作簿。VBA规则下，未绑定父对象的Cells/Range等表格对象，默认指向当前激活的活动工作表。跨工作簿执行复制粘贴操作时，Excel会临时将活动焦点切换到粘贴目标工作簿的工作表，此时事件触发后的写值操作会错误写入当前激活的无代码工作簿，即出现代码跨工作簿“溢出”生效的异常。

现有代码还存在两个隐性风险：

• 单元格写入操作会递归触发SheetChange事件，极端场景下会造成程序栈溢出
• 变量声明不规范，Dim xRow, xCol As Integer写法仅会将xCol声明为Integer类型，xRow会被默认识别为Variant类型，增加运行时异常概率

核心调整三点：

• 所有单元格操作显式绑定事件过程传入的Sh对象（即代码所在工作簿中触发本次变更的工作表），彻底脱离对活动工作表的依赖
• 写入时间戳前临时关闭事件响应，避免写单元格操作递归触发事件，操作完成后（含异常场景）自动恢复事件设置
• 补全规范的变量声明，修正原代码的变量类型声明漏洞

直接将原有ThisWorkbook模块中的代码替换为以下版本即可：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim xCellColumn As Integer
    Dim xTimeColumn As Integer
    Dim xDateColumn As Integer
    Dim xRow As Long, xCol As Long
    Dim xDPRg As Range, xRg As Range
    
    ' 列配置：第11列内容变更时，自动在第9列写入日期、第10列写入时间
    xCellColumn = 11
    xTimeColumn = 9
    xDateColumn = 10
    
    xRow = Target.Row
    xCol = Target.Column
    
    If Target.Text <> "" Then
        ' 临时关闭事件，避免递归触发
        Application.EnableEvents = False
        On Error GoTo ErrHandler ' 异常兜底，确保事件状态可恢复
        
        If xCol = xCellColumn Then
           ' 显式绑定父对象为触发事件的工作表，不会跨工作簿/表误写入
           Sh.Cells(xRow, xTimeColumn) = Date
           Sh.Cells(xRow, xDateColumn) = Time()
        Else
            Set xDPRg = Target.Dependents
            For Each xRg In xDPRg
                If xRg.Column = xCellColumn Then
                    Sh.Cells(xRg.Row, xTimeColumn) = Date
                    Sh.Cells(xRg.Row, xDateColumn) = Time()
                End If
            Next
        End If
    End If

ErrHandler:
    ' 恢复事件响应
    Application.EnableEvents = True
End Sub

修复后无论同时打开多少个工作簿、是否执行跨工作簿复制粘贴操作，自动时间戳逻辑仅会在存储该VBA代码的工作簿内生效，不会向其他打开的工作簿写入内容。

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