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

Формулировка задачи:

Ребята здравствуйте! много чего просмотрел в инете так и ни чего конкретного для себя не нашел, подскажите Как узнать открыт(именно открыт ли конкретный файл) ли файл XL или нет, если ДА то msgbox если нет то продолжить

Решение задачи: «Как узнать открыт ли файл Excel»

textual
                            Листинг программы 
                        

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