Last Saved Date

  • Thread starter Thread starter Thomas M.
  • Start date Start date
T

Thomas M.

Excel 2003

In Word 2003 it is possible to insert a field that will show the date and
time that the document was last saved. I have been trying to find something
similar for Excel that I can insert as part of a custom footer, or at least
in a cell somewhere on the page.

How can I get the date and time of the last save to show in an Excel file?

--Tom
 
To place in a footer..................

Sub foot_date()
ActiveSheet.PageSetup.RightFooter = "Last Saved : " & _
Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub

To place in a cell.................

Sub cell_date()
ActiveSheet.Range("A1").Value = "Last Saved : " & _
Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub


Gord Dibben MS Excel MVP
 
Thanks for the reply. I was not previously aware of those properties.

However, in our environment many people--I'd say about half--have macros
disabled for security reasons. I have tried to convince management that we
could have digital signatures for internally developed stuff that would
allow our own macros to run while still being protected from macros in
externally developed documents, but I have not been able to win that
argument thus far. So I would be interested in doing this without a macro.
I apologize for not mentioning this in my original message, but it just
didn't occur to me.

Is it possible to create a formula that can access the Last Save Time from
BuiltinDocumentProperties?

--Tom
 
Back
Top