Открыт ли Excel-файл?

Полезный макрос, обычно необходимый в ситуации, когда программным способом необходимо открыть Excel-файл. Чтобы не возникло сообщение об ошибке, нужно убедиться что файл ещё не открыт.

'Открыта ли книга?
Public 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

Убедившись что книга открыта. можно выяснять другие вопросы - например, сушествует ли в ней лист с заданным именем?