Recording date/time saved and author name

[scotthannaford1973]

Hi

I'd like to be able to create a table that will effectively create an audit log to record when a file is saved - and who saved it - to be added to a named worksheet, with the newest row added to the bottom. I can easily create a one off that does the latest save, but I would like to record all save details TIA!

 

[KOKOSEK]

Into ThisWorkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xRng As Range
Dim lRow As Integer
With Sheets("log")     'example of sheet name, set as You wish
    lRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set xRng = .Range("A3:C" & lRow)
    xRng.Offset(1, 0) = xRng.Value
    .[A2].Value = Format(Now(), "dd-mmm-yy")
    .[B2].Value = Format(Now(), "hh:mm:ss")
    .[C2].Value = Environ("USERNAME")
End With
End Sub

 

[scotthannaford1973]

Into ThisWorkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xRng As Range
Dim lRow As Integer
With Sheets("log")     'example of sheet name, set as You wish
    lRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set xRng = .Range("A3:C" & lRow)
    xRng.Offset(1, 0) = xRng.Value
    .[A2].Value = Format(Now(), "dd-mmm-yy")
    .[B2].Value = Format(Now(), "hh:mm:ss")
    .[C2].Value = Environ("USERNAME")
End With
End Sub

works perfectly - many thanks

 

[KOKOSEK]

Happy to help.