Last Save Date
 

Is there a formula to capture Last Save Date in a cell?

Thanks!

Last Save Date
 

Right click the excel icon in the upper left next to "file" and insert this.
Chg to suitSAVE

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("sheet1").Range("a1") = Date
End Sub


--
Don Guillett
SalesAid Software

"Ben" wrote in message
oups.com...
Is there a formula to capture Last Save Date in a cell?

Thanks!

Last Save Date
 

Ben

First off.........save a backup of your workbook.

Then use this User Defined Function which you copy to a general module in your
workbook.

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

'=DOCPROPS("last author")
'or
'=DOCPROPS("last save time")
'or
'DOCPROPS("creation date")

For a list of other properties that may be available(not all are), run this
macro.

Sub props()
rw = 1
Worksheets.Add
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
rw = rw + 1
Next
End Sub


Gord Dibben MS Excel MVP

On Thu, 28 Jun 2007 08:01:48 -0700, Ben wrote:

Is there a formula to capture Last Save Date in a cell?

Thanks!