Как узнать открыт ли файл Excel

Function IsBookOpen(wbFullName As String) As Boolean
    Dim iFF As Integer
    iFF = FreeFile
    On Error Resume Next
    Open wbFullName For Random Access Read Write Lock Read Write As #iFF
    Close #iFF
    IsBookOpen = Err
End Function

Set XL = CreateObject("Excel.Application")
XL.WorkBooks.Open App.Path & "\BD\ПКО_РКО.xlsx"
XL.Visible = False

Private Sub Form_Load()

Private Sub Form_Load()
 
Function IsBookOpen(wbFullName As String) As Boolean
    Dim iFF As Integer
    iFF = FreeFile
    On Error Resume Next
    Open wbFullName For Random Access Read Write Lock Read Write As #iFF
    Close #iFF
    IsBookOpen = Err
End Function
 
Set XL = CreateObject("Excel.Application")
XL.WorkBooks.Open App.Path & "\BD\ПКО_РКО.xlsx"
XL.Visible = False
End Sub

Dim XL As Object
On Error Resume Next
   Set XL = CreateObject("Excel.Application")
  If Err.Number <> 0 Then
   MsgBox "файл открыт"
Else
   MsgBox "файл закрыт"
End If

Private Sub Form_Load()
 
msgbox IsBookOpen(App.Path & "\BD\ПКО_РКО.xlsx")
 
Set XL = CreateObject("Excel.Application")
XL.WorkBooks.Open App.Path & "\BD\ПКО_РКО.xlsx"
XL.Visible = False
End Sub
 
 
Function IsBookOpen(wbFullName As String) As Boolean
    Dim iFF As Integer
    iFF = FreeFile
    On Error Resume Next
    Open wbFullName For Random Access Read Write Lock Read Write As #iFF
    Close #iFF
    IsBookOpen = Err
End Function

If IsBookOpen(App.Path & "\BD\ПКО_РКО.xlsx") = False Then
MsgBox "файл Закрыт"
Else
   MsgBox "файл Открыт"
End If