excel - 在 microsoft excel 2010 中创建用户审计跟踪

Question

我需要在 Excel 2010 中创建基本用户审核跟踪，跟踪未登录 PC（共享 PC）的不同用户对某些单元格的更改

Answer 1

以下宏监控单元格A2到A20的变化

如果用户更改了这些单元格中的任何一个，则用户名和日期将记录在单元格的注释中

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A2:A20")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Dim s As String
    s = Now & vbCrLf & Environ("UserName")
        With Target
            .ClearComments
            .AddComment s
        End With
    Application.EnableEvents = True
End Sub