实时受数据库更新的Excel工作簿用户变更追踪问题咨询

你的方案部分可行，但有局限性，且原代码存在逻辑问题需要修正 #

先直接回答你的核心问题：如果数据库B的更新操作使用的Windows账户不是rogerb，那么添加And Environ("username")= "rogerb"这个条件确实能避免数据库更新触发代码导致的Application.Undo报错——因为此时只有你（rogerb）手动修改时才会执行后续逻辑，数据库的自动更新会被直接跳过。

但这个方案有几个需要注意的地方：

• 范围太窄：只能追踪你一个人的操作，如果其他用户也需要被监控，这个条件会直接排除他们的修改记录。
• 依赖账户准确性：必须确保数据库B的更新服务使用的是和rogerb不同的Windows账户，如果数据库同步意外用了你的账户运行，代码还是会触发并报错。
• 存在伪造风险：虽然概率不高，但如果有人通过修改系统环境变量伪造username为rogerb，会导致逻辑失效（不过一般办公环境下这种情况很少见）。

另外，你的原代码里有个明显的逻辑错误：连续调用两次Application.Undo。第一次Undo会撤销用户的修改，此时已经回到旧值状态，第二次Undo就没有可撤销的操作了（如果用户只做了一次修改），这本身就会触发报错，和数据库更新无关。正确的逻辑应该是：保存用户修改后的新值 → Undo获取旧值 → 恢复用户的新值，这样既拿到了新旧值，又不会丢失用户的修改。

更可靠的优化方案 #

如果你希望更准确地区分「用户手动修改」和「数据库自动更新」，同时保留追踪功能，推荐结合全局标记变量的方法：

1. 首先在Excel的标准模块中定义一个全局变量：

Public IsDatabaseUpdate As Boolean

2. 在数据库B同步数据的代码开头，设置这个变量为True，结束后恢复为False（确保同步过程中触发的SheetChange事件被跳过）：

Sub DatabaseSync()
    IsDatabaseUpdate = True
    ' 这里写你的数据库同步代码
    ' ...
    IsDatabaseUpdate = False
End Sub

3. 修改你的Workbook_SheetChange事件代码，同时加入用户判断和全局变量判断，修正Undo逻辑：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim newVal As Variant
    Dim oldVal As Variant
    Dim logRow As Long
    
    ' 跳过日志表本身的修改，以及数据库更新、非目标用户的操作
    If Sh.Name = "LogDetails" Or IsDatabaseUpdate Or Environ("username") <> "rogerb" Then
        Exit Sub
    End If
    
    Sheets("LogDetails").Unprotect Password:="****"
    Application.EnableEvents = False
    
    ' 保存用户修改后的新值
    newVal = Target.Value
    ' 撤销操作获取旧值
    Application.Undo
    oldVal = Target.Value
    ' 恢复用户的修改
    Target.Value = newVal
    
    ' 写入日志
    logRow = Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Row + 1
    With Sheets("LogDetails")
        .Range("A" & logRow).Value = Sh.Name & " - " & Target.Address(0, 0)
        .Range("B" & logRow).Value = oldVal
        .Range("C" & logRow).Value = newVal
        .Range("D" & logRow).Value = Environ("username")
        .Range("E" & logRow).Value = Now
    End With
    
    Application.EnableEvents = True
    Sheets("LogDetails").Protect Password:="****"
End Sub

这个方案的优势：

• 准确区分数据库更新和用户操作，不会因为数据库同步触发错误
• 可以灵活调整用户判断条件（比如改成允许多个用户，用数组存储合法用户名）
• 修正了原代码的Undo逻辑，避免不必要的报错

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