VBA-WorkingWithWorkbook

Check if workbook open

Function IsWorkBookOpen(filename)
Dim ff As Long, ErrNo As Long

On Error Resume Next
ff = FreeFile()
Open filename For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0

Select Case ErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function

[$[Get Code]]

Edit | History | Recent Changes (all) | Search

Page last modified on February 15, 2022, at 12:17 PM