VBA講座 ブックの操作：既に使用されている

プログラムを入力する

Option Explicit

Private Sub CommandButton1_Click()
    Workbooks.Open "c:\発注書.xls"
    
    '読み取り専用かどうか判定
    If ActiveWorkbook.ReadOnly = True Then
        MsgBox "「c:\発注書.xls」は使用中です"
    Else
        MsgBox "「c:\発注書.xls」は使用できます"
    End If
    
End Sub

プログラム説明

Excelファイルが既に使用されているかどうか調べるには、ReadOnlyプロパティを使います。
これは、既に使用されているファイルを開いた場合、「読み取り専用」になるからです。
ReadOnlyがTRUEの場合、使用されています。

実行結果

■ 実行前
「使用中かどうか調べる」ボタンをクリックし実行します。


使用されていない場合、「使用できます」とメッセージが表示されます。


使用されている場合、「使用中です」とメッセージが表示されます。