Show date last time modified

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)

"José Manuel Soberón" <[email protected]> wrote in
message news:[email protected]...
> Hello,
>
> I need to display the date of the last time my file was modified. Could
> someone please help me?
>
> Thanks

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" wrote:

> '-----------------------------------------------------------------
> 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)
>
> "José Manuel Soberón" <[email protected]> wrote in
> message news:[email protected]...
> > Hello,
> >
> > I need to display the date of the last time my file was modified. Could
> > someone please help me?
> >
> > Thanks
>
>
>

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)

"Ozgur Pars" <[email protected]> wrote in message
news:[email protected]...
> 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" wrote:
>
> > '-----------------------------------------------------------------
> > 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)
> >
> > "José Manuel Soberón" <[email protected]> wrote
in
> > message news:[email protected]...
> > > Hello,
> > >
> > > I need to display the date of the last time my file was modified.
Could
> > > someone please help me?
> > >
> > > Thanks
> >
> >
> >

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

Ozgur

"Bob Phillips" wrote:

> 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)
>
> "Ozgur Pars" <[email protected]> wrote in message
> news:[email protected]...
> > 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" wrote:
> >
> > > '-----------------------------------------------------------------
> > > 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)
> > >
> > > "José Manuel Soberón" <[email protected]> wrote
> in
> > > message news:[email protected]...
> > > > Hello,
> > > >
> > > > I need to display the date of the last time my file was modified.
> Could
> > > > someone please help me?
> > > >
> > > > Thanks
> > >
> > >
> > >
>
>
>