エクセル・VBA エラーメッセージの表示をしたい

質問

お世話になります。

エクセルのVBAで、他のエクセルファイルを開き、そのファイルに新しいデータをペーストし保存して閉じる命令文を入れてあります。このファイルは共有ドライブに入っており、複数の人で共有しております。
ファイルをマニュアルで開こうとした時に、すでに他の人が開いていると、"使用中のファイル"というメッセージが現れるのですが、VBAでは何も聞かれず"読み取り専用"として開かれ、そのファイルにデータをペーストして閉じてしまいます。当然後から開くとそのファイルには新しいデータが存在しておりません。
このような場合に、MsgBoxを開かせて他の人が開いていることを知らせ、Exit Subをしたいのですが、どのように書けばよろしいのでしょうか？
よろしくお願いいたします。

回答No.1

mt2008 · ベストアンサー

私が良くやるのは、ブックをファイルとして開いて見て、エラーだったら使用中と判断する方法です。

Sub Sample()
　Dim nFile As Integer
　On Error Resume Next
　nFile = FreeFile()
　Open "\\192.168.1.1\hogehoge\hoge.xls" For Append As #nFile
　Close #nFile
　If Err.Number > 0 Then
　　MsgBox ("誰かが使用中")
　　Exit Sub
　End If
End Sub

あるいは、そのブックを共有ブックにしてしまって、UserStatusオブジェクトを見るのも良いかも知れません。

お礼

mt2008さん、
本当にありがとうございました。
安心して週末を迎えられます。