Detect if another program currently has access to application

[Exceljeanie]

Hi all,
Scenario:
a vb.net Program is currently reading some informations from a workbook open in the Application.
This may take some seconds.
Is it now possible to detect in vba that this currently happens.

Thanks

Peter

 

[cerfani]

try checking...

If Application.Ready Then ...

you can use a while loop to keep checking until ready maybe

 

[Exceljeanie]

Hi,
Application.ready does not apply if another Program is working on Excel.
That was the first Thing i tested

 

[Haluk]

Can you try this and see if it helps ...

The below code checks the Word document named "Test.docx" if it is in use or not.

Sub Test()
    Dim FileNum As Integer
    FileNum = FreeFile(0)
    On Error Resume Next
    Open ThisWorkbook.Path & "\" & "Test.docx" For Input Lock Read Write As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
    If Err Then
        MsgBox "File is in use!"
    Else
        MsgBox "File is not in use!"
    End If
    Close [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum]#FileNum[/URL] 
End Sub

 

[Haluk]

May be its better to check if the file (Test.docx) exists and then check if it is in use or not ....

Sub Test2()
    Dim FileNum As Integer
    FileNum = FreeFile(0)
    MyFile = ThisWorkbook.Path & "\" & "Test.docx"
    If Dir(MyFile) <> "" Then
        On Error Resume Next
        Open MyFile For Input Lock Read Write As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
        If Err.Number = 70 Then
            MsgBox "File is in use!"
        Else
            MsgBox "File is not in use!"
        End If
        Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
    Else
        MsgBox MyFile & " is not found!"
    End If
End Sub