关闭/跟踪更改VBA Excel

Question

the code i have is working well. The issue i have is that i want to be able to turn off and on track changes . The reason being that , not all users changes should be tracked .All changes are recorded in a different sheet. Please see my code below:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveSheet.Name = "TrackChanges_Record" Then Exit Sub

Application.EnableEvents = False

UserName = Environ("USERNAME")

NewVal = Target.Value

Application.Undo

oldVal = Target.Value

lr = Sheets("TrackChanges_Record").Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("TrackChanges_Record").Range("A" & lr) = Now
Sheets("TrackChanges_Record").Range("B" & lr) = ActiveSheet.Name
Sheets("TrackChanges_Record").Range("C" & lr) = Target.Address
Sheets("TrackChanges_Record").Range("D" & lr) = oldVal
Sheets("TrackChanges_Record").Range("E" & lr) = NewVal
Sheets("TrackChanges_Record").Range("F" & lr) = UserName

Target = NewVal

Application.EnableEvents = True
End Sub

Answer 1

尝试这个：

If ActiveSheet.Name = "TrackChanges_Record" or Environ("USERNAME") = "UserToSkip1" or Environ("USERNAME") = "UserToSkip2" Then Exit Sub