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("Las t 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("Las t Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
End Sub


Gord Dibben MS Excel MVP


On Fri, 18 Jul 2008 16:02:32 -0600, "Thomas M." <NoEmailReplies@Please.com>
wrote:

>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
>

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

"Gord Dibben" <gorddibbATshawDOTca> wrote in message
news:4m7284h4ht6ulo9uupbnuv23qqh1o1pikm@4ax.com...
> To place in a footer..................
>
> Sub foot_date()
> ActiveSheet.PageSetup.RightFooter = "Last Saved : " & _
> Format(ThisWorkbook.BuiltinDocumentProperties("Las t 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("Las t Save
> Time"), _
> "yyyy-mmm-dd hh:mm:ss")
> End Sub
>
>
> Gord Dibben MS Excel MVP
>
>
> On Fri, 18 Jul 2008 16:02:32 -0600, "Thomas M."
> <NoEmailReplies@Please.com>
> wrote:
>
>>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
>>
>