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

Step 4 Excelブックが既に使用されているかどうか調べる


Homeに戻る > Excel 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の場合、使用されています。

実行結果

■ 実行前
「使用中かどうか調べる」ボタンをクリックし実行します。
Excelファイルが使用中かどうか判定するソフト

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

使用されている場合、「使用中です」とメッセージが表示されます。
Excelファイルが他で使用されている
Homeに戻る > Excel VBA講座へ > ブックの操作へ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved