Recording who last saved a workbook
 

Looking to see if there is a way to record who last saved the current workbook

Recording who last saved a workbook
 

Try this line of code...

MsgBox ThisWorkbook.BuiltinDocumentProperties("Last Author")

--
HTH...

Jim Thomlinson


"mmc308" wrote:

Looking to see if there is a way to record who last saved the current workbook

Recording who last saved a 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


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


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"mmc308" wrote in message
...
Looking to see if there is a way to record who last saved the current
workbook

Recording who last saved a workbook
 

Thanks for you help
Michael


"Bob Phillips" wrote:


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


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


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"mmc308" wrote in message
...
Looking to see if there is a way to record who last saved the current
workbook

Recording who last saved a workbook
 

Jim
Thanks for you help
Michael


"Jim Thomlinson" wrote:

Try this line of code...

MsgBox ThisWorkbook.BuiltinDocumentProperties("Last Author")

--
HTH...

Jim Thomlinson


"mmc308" wrote:

Looking to see if there is a way to record who last saved the current workbook

Recording who last saved a workbook
 

Bob
Thanks for you help
Michael

"Bob Phillips" wrote:


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


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


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"mmc308" wrote in message
...
Looking to see if there is a way to record who last saved the current
workbook