Создать журнал аудита пользователей в Microsoft Excel 2010

Question

Мне нужно создать базовый журнал аудита пользователей в Excel 2010, отслеживающий изменения определенных ячеек разными пользователями, не входящими в ПК (общий компьютер)

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