How can I capture the last date a file was saved in the footer
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. |
How can I capture the last date a file was saved in the footer
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 "DNader" wrote: 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. |
How can I capture the last date a file was saved in the footer
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 "DNader" wrote: 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. |
How can I capture the last date a file was saved in the footer
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 -- Marie Bayes "Mike H" wrote: 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 "DNader" wrote: 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. |
All times are GMT +1. The time now is 01:15 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com