file is in use from...

[sal21]

i have a .xls file into a dir server with all free permission on this dir, inested the tipical ms message "file is alreday opend from..." when a user open a xls file and jhis is alredy opened the same, is possible:

to show a mshbox:

Attention this file is in use from & "name of user have opoened the file for first" click on msg box close the .xls file...

i use this function to know wich user have opened the .xls file:

Sub USER_NAME()
Dim wshNet
ThisWorkbook.Activate
Sheets("RATE").Select
Set wshNet = CreateObject("WScript.Network")
wshGetUserName = wshNet.UserName
Set wshNet = Nothing
Range("A1") = ""
Range("A1") = UCase(wshGetUserName)
End Sub

 

[Joe Was]

Sub myLocks()
'Sheet Module Code, like: Sheet1.
Dim myWho, myWhen, myHow, myActive

If ActiveWorkbook.MultiUserEditing Then
MsgBox "The current file is a shared file!"
Else
MsgBox "The current file is not a shared file!"
End If

Users = ActiveWorkbook.UserStatus
For Row = 1 To UBound(Users, 1)
myWho = Users(Row, 1)
myWhen = Users(Row, 2)
Select Case Users(Row, 3)
Case 1
myHow = "Exclusive!"
Case 2
myHow = "Shared!"
End Select
myActive = myActive & "User: " & myWho & ", at: " & myWhen & ", as: " & myHow & vbCr
Next
MsgBox "These Users have this Workbook open:" & vbCr & vbCr & myActive

End Sub