Is there a way that I can keep a log of each person that saved a file and the
date and time

I use this code below but the area that the information is stored could be
changed if discovered...any help would be appreciated

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Sheets("Control").Range("V19").End(xlDown).Select
a_row = ActiveCell.Row
Sheets("Control").Range("V" & a_row + 1).Value = "Last Saved By " &
Environ("UserName")
Sheets("Control").Range("W" & a_row + 1).Value = Date
Sheets("Control").Range("X" & a_row + 1).Value = Time
End Sub


--
Helping Is always a good thing