Show UserName for all active user

[saintjhony]

I'm not finding a solution to my problem. At work I have a shared worksheet saved in the server and I need a macro that displays the name of the active users.

 

[Smitty]

Welcome to the Board!

See: List of all users who are sharing a workbook

HTH,

 

[saintjhony]

Hello Smitty,Here is what I'm trying to do. With the code below I can determine if the file is opened and I would like to also know wich user have the file opened.

Function IsFileOpen(filename As String)


Dim filenum As Integer, errnum As Integer


On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.


' Check to see which error occurred.
Select Case errnum


' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False


' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True


' Another error occurred.
Case Else
Error errnum
End Select


End Function