I have a macro script that I thought would tell me that but it returns that
I did. It is open on my desktop but I didn't create it. Is there a way to
find out who origonally created a workbook?


Sub WhoWroteThis()
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Autho r")
End Sub

Thanks,

Todd

That line of code works for me. It returns the user name as defined in Tools
- Options - General - User Name. Of course the value stored in this is at
the users discression, which may be the problem that you are having. Were you
wanting the login name of the person who created the file (this is maintained
by the operating system and is not at the discression of the user)? It is the
same difference as

Applicaiton.username
and
Environ("userName")
--
HTH...

Jim Thomlinson


"Todd" wrote:

I have a macro script that I thought would tell me that but it returns that
I did. It is open on my desktop but I didn't create it. Is there a way to
find out who origonally created a workbook?


Sub WhoWroteThis()
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Autho r")
End Sub

Thanks,

Todd

interesting. I am not sure then why its not working. All I know is that I
did not write the spreadsheet and want to ask questions to the person who
did.. They are saved as read only, would that make a difference?

"Jim Thomlinson" wrote:

That line of code works for me. It returns the user name as defined in Tools
- Options - General - User Name. Of course the value stored in this is at
the users discression, which may be the problem that you are having. Were you
wanting the login name of the person who created the file (this is maintained
by the operating system and is not at the discression of the user)? It is the
same difference as

Application.username
and
Environ("userName")
--
HTH...

Jim Thomlinson


"Todd" wrote:

I have a macro script that I thought would tell me that but it returns that
I did. It is open on my desktop but I didn't create it. Is there a way to
find out who origonally created a workbook?


Sub WhoWroteThis()
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Autho r")
End Sub

Thanks,

Todd

In windows explorer if you right click on the file you will be able to select
properties and view most of the properties of that file. You can also open
the file and look at File - Properties.

That will give you the bulk of the metadata for that file. There is a little
more metadata but you need to be a little fiendish to view it and I don't
think that any of it would be of value to you.

Is the workbook shared? I am not to sure what all that would affect in terms
of what you are looking for.
--
HTH...

Jim Thomlinson


"Todd" wrote:

interesting. I am not sure then why its not working. All I know is that I
did not write the spreadsheet and want to ask questions to the person who
did.. They are saved as read only, would that make a difference?

"Jim Thomlinson" wrote:

That line of code works for me. It returns the user name as defined in Tools
- Options - General - User Name. Of course the value stored in this is at
the users discression, which may be the problem that you are having. Were you
wanting the login name of the person who created the file (this is maintained
by the operating system and is not at the discression of the user)? It is the
same difference as

Application.username
and
Environ("userName")
--
HTH...

Jim Thomlinson


"Todd" wrote:

I have a macro script that I thought would tell me that but it returns that
I did. It is open on my desktop but I didn't create it. Is there a way to
find out who origonally created a workbook?


Sub WhoWroteThis()
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Autho r")
End Sub

Thanks,

Todd

Jim,

Looking at the properties of the file is the answer. Thank you, the
information is right there and no need to go further. I don't know what
hapened with the macro. I first used it a few weeks ago and it did work
then. Now it doesn't. I have tried it on many files and it always says I am
the person who wrote the file.
either way, file properties has the info so I am happy.

Thank you.


Todd

"Jim Thomlinson" wrote:

In windows explorer if you right click on the file you will be able to select
properties and view most of the properties of that file. You can also open
the file and look at File - Properties.

That will give you the bulk of the metadata for that file. There is a little
more metadata but you need to be a little fiendish to view it and I don't
think that any of it would be of value to you.

Is the workbook shared? I am not to sure what all that would affect in terms
of what you are looking for.
--
HTH...

Jim Thomlinson


"Todd" wrote:

interesting. I am not sure then why its not working. All I know is that I
did not write the spreadsheet and want to ask questions to the person who
did.. They are saved as read only, would that make a difference?

"Jim Thomlinson" wrote:

That line of code works for me. It returns the user name as defined in Tools
- Options - General - User Name. Of course the value stored in this is at
the users discression, which may be the problem that you are having. Were you
wanting the login name of the person who created the file (this is maintained
by the operating system and is not at the discression of the user)? It is the
same difference as

Application.username
and
Environ("userName")
--
HTH...

Jim Thomlinson


"Todd" wrote:

I have a macro script that I thought would tell me that but it returns that
I did. It is open on my desktop but I didn't create it. Is there a way to
find out who origonally created a workbook?


Sub WhoWroteThis()
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Autho r")
End Sub

Thanks,

Todd