How do I capture the last saved time in Excel2003?

L

L1011driver

I want to capture the last saved time in a cell. Anybody know how to do this?

Thanks!
 
F

Frank Kabel

Hi
use the following UDF (only on workbook level):


Function DocProps(prop As String)
application.volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell
=DOCPROPS("last save time")
(format cell as date)
 
Top