Determine If a Excel Workbook is Already Open

[jonmelmo]

I have this code to determine if a workbook is already open but having trouble figuring out to have it wait 5 seconds and try again and if after 3 tries then send the msgBox database is in use.


If wBook.ReadOnly = True Then
MsgBox "Database is in use. Please try after sometimes.", vbookonly + vbCritical, "error"

Exit Sub
End If

 

[shknbk2]

This is a Do loop that repeats if the workbook is readOnly for 3 times. Search online for VBA examples of Wait functions that delay for a certain number of seconds and call that function in the commented part. Add the Wait function to the end of your code.

Dim loopCount As Integer
loopCount = 0
Do
    loopCount = loopCount + 1
    If wBook.ReadOnly = True Then
        If loopCount > 2 Then
            MsgBox "Database is in use. Please try after sometimes.", vbOKOnly + vbCritical, "error"
            Exit Sub
        End If
        
        'Call function to delay 5 seconds
        
    Else
        Exit Do
    End If
Loop