Finding out whether a file is open in other computer

[prajul89]

again:
'see if file is read only
If test = True Then Application.Wait TimeValue("00:00:02"): GoTo again:

'open file and update values in it

Here I want test to be true if the said file is already opened by some other user, else it should be false. Is it possible??

Basically I want my macro to wait for sometime and open only file which is not read only.

 

[Andrew Poulsom]

Try:

    Dim FileName As String
    FileName = "C:\temp\somefile.xls"
    If (GetAttr(FileName) And vbReadOnly) = 1 Then
        MsgBox FileName & " is readonly."
    Else
        MsgBox FileName & " is not readonly."
    End If

Change the FileName to suit.

 

[prajul89]

thank for the response. I m travelling so i can't check it. Thank u very much

 

[prajul89]

Nope that didn't worked. My knowledge is very little, but I think that code just shows whether a file is saved as a read only file while saving.

When opened "somefile" and run your macro the msg still appears that the file is not read only.

 

[Andrew Poulsom]

Another possibility:

http://www.exceltip.com/st/Determine_if_a_file_is_in_use_using_VBA_in_Microsoft_Excel/444.html

 

[prajul89]

Thanks, This works beautifully.
Thanks for the help, It means a lot to me!