【发布时间】:2014-05-21 19:56:31
【问题描述】:
我需要在 Excel 2010 中创建基本的用户审核跟踪,以跟踪未登录 PC(共享 PC)的不同用户对某些单元格的更改
【问题讨论】:
-
这里没有足够的细节。您究竟想跟踪什么?
-
请尽量把你的问题解释清楚,这样你的问题才能得到具体的答案。 我需要这个类型的问题通常过于宽泛,难以准确回答。
我需要在 Excel 2010 中创建基本的用户审核跟踪,以跟踪未登录 PC(共享 PC)的不同用户对某些单元格的更改
【问题讨论】:
以下宏监控单元格 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
【讨论】: