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

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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
 
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
 
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
 
Back
Top