Does anyone know how to access the "Date Last Saved"
attribute of a file using VB Code? I want to display the
latest date the file was saved in a footer when printed,
not necessarily the current date or file creation date.
Because Excel is designed to change the modified date of a
file when it is opened (the original modify date is held
in memory and restored if you don't save changes), I can't
use the ".DateLastModified attribute. Any suggestions?

? Activeworkbook.BuiltinDocumentProperties("Last Save Time").Value
2/4/2003 1:35:46 PM

Note that this value is not maintained in Excel 97.

Regards,
Tom Ogilvy



"Craig" wrote in message
...
Does anyone know how to access the "Date Last Saved"
attribute of a file using VB Code? I want to display the
latest date the file was saved in a footer when printed,
not necessarily the current date or file creation date.
Because Excel is designed to change the modified date of a
file when it is opened (the original modify date is held
in memory and restored if you don't save changes), I can't
use the ".DateLastModified attribute. Any suggestions?

Hi Craig,

Here is one way to stamp the date into a worksheet footer when someone saves
the workbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
myString = "&""Arial,Italic""&14" & Format(Date, "MMM/DD/YYYY")
Sheets("Sheet1").PageSetup.LeftFooter = myString
End Sub

--
Regards,
Rocky McKinley


"Craig" wrote in message
...
Does anyone know how to access the "Date Last Saved"
attribute of a file using VB Code? I want to display the
latest date the file was saved in a footer when printed,
not necessarily the current date or file creation date.
Because Excel is designed to change the modified date of a
file when it is opened (the original modify date is held
in memory and restored if you don't save changes), I can't
use the ".DateLastModified attribute. Any suggestions?

Correction,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
myString = "&""Arial,Italic""&14" & Format(Now, "MMM/DD/YYYY HHHH:MM:SS
")
Sheets("Sheet1").PageSetup.LeftFooter = myString
End Sub

--
Cheers,
Rocky McKinley


"Rocky McKinley" wrote in message
...
Hi Craig,

Here is one way to stamp the date into a worksheet footer when someone
saves
the workbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
myString = "&""Arial,Italic""&14" & Format(Date, "MMM/DD/YYYY")
Sheets("Sheet1").PageSetup.LeftFooter = myString
End Sub

--
Regards,
Rocky McKinley


"Craig" wrote in message
...
Does anyone know how to access the "Date Last Saved"
attribute of a file using VB Code? I want to display the
latest date the file was saved in a footer when printed,
not necessarily the current date or file creation date.
Because Excel is designed to change the modified date of a
file when it is opened (the original modify date is held
in memory and restored if you don't save changes), I can't
use the ".DateLastModified attribute. Any suggestions?