HOME > 即効テクニック > Excel VBA > ファイル操作関連のテクニック > 他のユーザーにより使用中のブックを強制的に閉じる

即効テクニック

ファイル操作関連のテクニック

他のユーザーにより使用中のブックを強制的に閉じる

(Excel 97)
●詳細●
ブックを開く際に、他のユーザーが既に使用している場合は、そのブックは自動的に「読み取り専用」になります。したがって、そのブックが「読み取り専用」かどうかを判断して、「読み取り専用」だった場合はブックを閉じます。サンプルマクロでは、「MOUG.xls」というブックを開いた時に、「読み取り専用」であったら、ブックを閉じて、他のユーザーが使用していることを知らせるメッセージボックスを表示します。もちろん、他のユーザーが使用していなくても、そのブックが読み取り専用に指定されていたら、ブックは閉じられ、メッセージボックスが表示されます。

●サンプル●
Sub Sample()
    Workbooks.Open "MOUG.xls"

    If ActiveWorkbook.ReadOnly = True Then
        ActiveWorkbook.Close
        MsgBox "「MOUG.xls」は他のユーザーが使用中です"
    End If

End Sub