Track and Accept changes in Shared and Protected
I've inserted the following macro in a worksheet to populate the first two
columsn with date and userid ---this will me to sort on when a change has
taken place on a record. HOWEVER...if the document is shared this macro will
NOT fire for the secondary users (ie...who i'm sharing this with).
The same is true if primary users attemps to Accept or Reject the changes.
If primary user Accepts the change...I want the macro to fire and populate
the my fire two columns.
Private Sub Worksheet_Change(ByVal Target As Range)
'**This will put the latest date and user in column A and B any time you add
or change any information in B:AA:
If Not Intersect(Target, Range("B:AZ")) Is Nothing And
IsEmpty(Cells(Target.Row, 1)) Then
Cells(Target.Row, 1) = Now
Cells(Target.Row, 2) = Application.UserName
End If
End Sub
Any suggestions????
Thanks in Advance.
Chad
|