how to know the original creator of one excel?
 

how to know the original creator of one excel?

how to know the original creator of one excel?
 

'-----------------------------------------------------------------
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 ("Author")

--
__________________________________
HTH

Bob

"Desin Dai" <Desin wrote in message
...
how to know the original creator of one excel?

how to know the original creator of one excel?
 

Hi Bob,

Is that any different to going to FilePropertiesSummary tab?
In other words, is there something hidden deeper in the file that
contains this info?

Regards
Martin


"Bob Phillips" wrote in message
...
'-----------------------------------------------------------------
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 ("Author")

--
__________________________________
HTH

Bob

"Desin Dai" <Desin wrote in message
...
how to know the original creator of one excel?

how to know the original creator of one excel?
 

Martin.

Only difference is Bob's function will return the property to a cell.


Gord Dibben MS Excel MVP

On Mon, 8 Sep 2008 23:06:33 +1000, "MartinW" wrote:

Hi Bob,

Is that any different to going to FilePropertiesSummary tab?
In other words, is there something hidden deeper in the file that
contains this info?

Regards
Martin


"Bob Phillips" wrote in message
...
'-----------------------------------------------------------------
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 ("Author")

--
__________________________________
HTH

Bob

"Desin Dai" <Desin wrote in message
...
how to know the original creator of one excel?