Show date last time modified

[Guest]

Hello,

I need to display the date of the last time my file was modified. Could
someone please help me?

Thanks

 

[Bob Phillips]

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocument­Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Guest]

Hello Bob,
I have copied your function into a module and have written =DocProps ("last
author") as you said but Excel didn't recognize it.
Any thoughts on what I did wrong?
Actually I am puzzled at how the whole thing works in the first place( does
Excel recognize last author or something?)
Anyway sorry for the elementary questions)

Ozgur

 

[Bob Phillips]

Ozgur,

A number of properties are stored with the file, this just gives access to
them.

I copied it from my post and tried it, and also got an error. Looking at the
code, I found a superfluous - in it (which doesn't show in my response!).

See if this version works okay now, it looks the same, but I removed the -
in the VBIDE

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

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Guest]

Bob,
it worked perfectly.
Thanks again for your reply.

Ozgur