How can I capture the last date a file was saved in the footer

D

DNader

I'm looking for a way to capture the date a file was last updated in an Excel
spreadsheet. If a file was last updated 3 days ago, I want to see that date,
not the date the file was printed.
 
J

Jim May

Paste this code into the THISWORKBOOK Module and then pick a cell (say A1)
that where you'd like for the date and time to appear and in it enter
=LastSaved


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Names.Add Name:="LastSaved", _
RefersToR1C1:="=""" & _
Format(Now, "mmm-dd-yyyy hh:mm") & """"
End Sub

Jim May
 
M

Mike H

Try this

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Date
End Sub

Alt+F11 to open VB editor
double click This Workbook
Paste code in

Mike
 
M

Marie Bayes

Hi Mike

Can I jump in on this thread? I'd like to do exactly this, but also put
alongside the username of who last saved the document. Do you have any VB
code that will let me put that in please?

Thanks
 
Top