Show date last time modified

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

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

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top