【ExcelVBA】ブックが開かれているかを確認する方法

エクセルファイルがユーザーによって開かれているかを調べる方法について説明します。

クリックできる見出し

ブックが開かれているかを確認するVBAコードと解説
VBAコードの解説
※コードのコピー利用について

ブックが開かれているかを確認するVBAコードと解説

フォルダ内に「ファイルA」というエクセルファイルがあります。
このファイルが開かれているかどうかを調べます。

Subプロシージャ（FileCheck）で対象のファイルパスをセットして、Functionプロシージャ（Func_FileCheck）を呼び出してチェックを実施しています。

Sub FileCheck()

    Dim FilePath As String
    
　　'対象のファイルパスをセット
    FilePath = "C:\Users\Owner\Desktop\learningpgm\VBA\ファイルが開かれているか\ファイルA.xlsx"
    
　　'ファイルが開かれているかチェックするFunctionプロシージャを呼び出す
    If Func_FileCheck(FilePath) = False Then
     
 　　　'結果がFalseの場合、メッセージを表示
        MsgBox "ファイルが開かれています"
    
    End If

End Sub

Function Func_FileCheck(FilePath As String) As Boolean

　'結果をFalseにする（初期値）
  Func_FileCheck = False

    'エラーを無視する
    On Error Resume Next
    
    'ファイルを追記モードで開く
    Open FilePath For Append As #1
    
    '閉じる
    Close #1
    
    'エラーががある場合は終了（結果はFalseのまま）
    If Err.Number > 0 Then Exit Function
    
　'結果をTrueにする（ファイルが開かれていない場合）
  Func_FileCheck = True
    
End Function

上のマクロを実行すると、ファイルが開かれていた場合は「ファイルが開かれています」のメッセージボックスが表示されます。閉じられている場合は何もせずに終了します。