即効テクニック |
●詳細● ブックを開く際に、他のユーザーが既に使用している場合は、そのブックは自動的に「読み取り専用」になります。したがって、そのブックが「読み取り専用」かどうかを判断して、「読み取り専用」だった場合はブックを閉じます。サンプルマクロでは、「MOUG.xls」というブックを開いた時に、「読み取り専用」であったら、ブックを閉じて、他のユーザーが使用していることを知らせるメッセージボックスを表示します。もちろん、他のユーザーが使用していなくても、そのブックが読み取り専用に指定されていたら、ブックは閉じられ、メッセージボックスが表示されます。 ●サンプル●
Sub Sample() Workbooks.Open "MOUG.xls" If ActiveWorkbook.ReadOnly = True Then ActiveWorkbook.Close MsgBox "「MOUG.xls」は他のユーザーが使用中です" End If End Sub