Macros to show user name when opening locekd Excel file

[TK2]

Hi.

My Excel file is located on network drive and I have a macros which automatically exports data from outlook message to excel file.

In case some other user has opened this file I can not run a macros, because file is read only.

There is a KB article "Macro code to check whether a file is already open".
http://support.microsoft.com/kb/291295

My question is:
"How to show username of person who have locked the file?"

E.g.

If IsFileOpen("c:\Book2.xls") Then
' Display a message stating the file in use.
MsgBox "File already in use by: " + username
'
' Add code here to handle case where file is open by another
' user.
'
End if

 

[Joxu]

Hi TK2

If you dont want at another people can open it, give the file password.

If You want at they can open it, share the file. Tools, shareworkbook.

Then you can use it normaly. And you can see later how have change it

-Joxu

 

[Sandeep Warrier]

Hi

See if this helps.
<input id="gwProxy" type="hidden"><!--Session data--><input *******="jsCall();" id="jsProxy" type="hidden">

 

[TK2]

Thanks, sandeep.warrier!

I will try it!

 

[jim may]

Not tested but perhaps another way (From Help). Paste below in the Thisworkbook Code Sheet

Private Sub Workbook_Open()
With ActiveWorkbook
    If .WriteReserved = True Then
        MsgBox "This file is not Shareable - Please contact " & .WriteReservedBy & Chr(13) & _
            " if you need to insert data in this workbook."
    Me.Close SaveChanges:=False
    End If
End With
End Sub