Excel 2010 VBA - find name of the user of an open excel file

Originally Posted by TMShucks

If the workbook resides on a central server somewhere, and if it is macro enabled, you could write a text file to a fixed location with the user's log in ID, and the time the file was opened.

You could then interrogate the text file. In fact, you could probably append to it so you'd have a history of who uses the file.

Just an idea ...


Regards, TMS

Thanks TMS, I like the Idea, greatly appreciate it

Originally Posted by TMShucks

You're welcome.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

Thanks TMS, but I will wait a little longer as I am hoping someone will be able to figure out how to directly from my open workbook to get the user's information on a workbook someone else has open on the server. I am working on your idea now and then if someone comes up with the solution I really want I will close it.

Thanks for all the help

Originally Posted by yudlugar

I suppose you could use something like:

Please Login or Register  to view this content.

to find out how long it has been opened. I'm not sure how to get the user but I'll have a think.

Edit: According to google:

Please Login or Register  to view this content.

then you probably want something along the lines of:

Please Login or Register  to view this content.

to see if the file is locked

0

Hello yudlugar,
I tried the above scripts but did not have any good luck with it. However, I found this from Jeff Grove that works very well for me

Function GetFileOwner(fileDir As String, fileName As String) As String

'On Error Resume Next
Dim secUtil As Object
Dim secDesc As Object
Set secUtil = CreateObject("ADsSecurityUtility")
Set secDesc = secUtil.GetSecurityDescriptor(fileDir & fileName, 1, 1)
GetFileOwner = secDesc.owner
End Function


Thanks everyone for all the help