●詳細●

　ブックを開く際に、他のユーザーが既に使用している場合は、そのブックは
自動的に「読み取り専用」になります。したがって、そのブックが「読み取り専用」
かどうかを判断して、「読み取り専用」だった場合はブックを閉じます。

　サンプルマクロでは、「MOUG.xls」というブックを開いた時に、「読み取り専用」
であったら、ブックを閉じて、他のユーザーが使用していることを知らせるメッセージ
ボックスを表示します。

　もちろん、他のユーザーが使用していなくても、そのブックが読み取り専用に指定
されていたら、ブックは閉じられ、メッセージボックスが表示されます。

●サンプル●

Sub Sample()

    Workbooks.Open "MOUG.xls"

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

End Sub