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

Show date last time modified
 

'-----------------------------------------------------------------
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" wrote in
message ...
Hello,

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

Thanks

Show date last time modified
 

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" wrote in
message ...
Hello,

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

Thanks

Show date last time modified
 

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" wrote in message
...
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" wrote
in
message ...
Hello,

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

Thanks

Show date last time modified
 

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" wrote in message
...
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" wrote
in
message ...
Hello,

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

Thanks