Hi, Hope someone can help me.. I have a shared document which is being used by multiple people. I want to be able to capture who and when someone saves changes. This is the code I have at the moment.
What I want the code to do is, save the last users information in the 'UserLog' sheet and return the user back to the sheet they were working on (they do not need to see the UserLog sheet)
Can someone help. All help is appreciated.
Many Thanks
R
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("UserLog").Activate
Range("A1") = "This file last saved ""By"" who ""On"", list!"
Range("A65536").End(xlUp).Offset(1, 0) = _
"By: " & Application.UserName & ", On: " & Now & " "
End Sub
What I want the code to do is, save the last users information in the 'UserLog' sheet and return the user back to the sheet they were working on (they do not need to see the UserLog sheet)
Can someone help. All help is appreciated.
Many Thanks
R