Display Last Saved By date & User?

A

Annabelle

Although found under the Properties section, is it possible to display
on the worksheet the Last Saved By date and Last Saved By user?
 
R

Ron de Bruin

Hi Annabelle

With code you can do this
Copy this event in the Thisworkbook module
It will automatic run when you save the file

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
Sheets("Sheet1").Range("A2").Value = ThisWorkbook.BuiltinDocumentProperties("Author")
End Sub
 
A

Annabelle

I modified to code to fit my worksheet name and the cells I expect to
see the data - works great; however, the User name appears to be coming
from whatever name was updated in the Properties Summary tab. Can I use
the name (or network name) of the actual person who last saved the
file? This is the name listed in the Properties Statistics tab.

There will be up to five or six folks who can make changes and save
this worksheet, so it's important to know who last saved the document.

Thanks for your help.
 
Top