VBA講座 ブックの操作

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


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ファイルが他で使用されている




Excel VBA講座のメニューに戻る

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


Copyright (c) Excel-Excel ! All rights reserved