Excel VBA ブックが開かれているか確認する

他にも方法がある為、以下のリンクも併せてチェックした上で何を使うか決めること
VBA エラー処理 - ray88’s diary
ファイルが既に開かれているかどうか調べる - ray88’s diary
VBA 特定の名前のブックが開かれているか確認する - ray88’s diary
Excel VBA ファイルが既に開かれているかどうか調べる その② - ray88’s diary

Function fncIsBookOpened(targetPath As String) As Boolean
'--------------------------------------------------------
'機能：指定したファイル名のブックが開かれているか確認し
'      結果をTrueかFalseで返す
'引数1：指定するファイル名
'--------------------------------------------------------
Dim ChkBook As Workbook
    On Error GoTo ErrHdl    
    Set ChkBook = Workbooks(targetPath)
    fncIsBookOpened = True    
    Exit Function    
ErrHdl:
    fncIsBookOpened = False
End Function