エクセルＶＢＡで「通知」を選ぶには？

質問

ネットワーク上にあるエクセルファイルを開こうとする場合、誰かが先に開いている場合、「使用中のファイル」というダイアログが出てきて、「ｘｘｘ.xlsは編集のためロックされています」とメッセージが表示され、ボタンが「読み取り専用」「通知」「キャンセル」と出ます。
通知を選ぶと読み取り専用で開かれ、先に開いた人が終了した場合、ＯＫになった旨の連絡がきます。
この「通知」を選ぶのと同様の操作をＶＢＡで行うにはどのような命令を行ったらよいのでしょうか？
要は「読み取り専用」で開いて、先に開いた人が閉じた場合、メッセージを出したいのですが、どのようにＶＢＡを作ったらよいのでしょうか？
よろしくお願い申し上げます。

回答No.2

fumufumu_2006 · ベストアンサー

こんなのではどうでしょう？
>先に開いた人が閉じた場合、メッセージを出したいのです
という質問に対する回答ではないのですが・・・

普通にVBAで
Workbooks.Open ファイル
で開くと「通知」を選んだ時と同じく読み取り専用で開きます。
先に開いた物を閉じると、「ｘｘｘ.xlsは編集できるようになりました。どうする？編集？キャンセル？」と表示します。

ただ、VBAからだと「ｘｘｘ.xlsは編集のためロックされています」とメッセージが表示されません。
自前で開いて判定してメッセージを出します。
編集できるようになった時の処理はシステムに任せます。
Sub sample()
Dim file As String
file = "\\fumufumu\hoge\Book1.xls" 'ファイル

Dim wb As Workbook
Set wb = Workbooks.Open(file)
If wb.ReadOnly = True Then 'もしも読み取り専用だったら
If (GetAttr(file) And vbReadOnly) = 0 Then 'でもファイル属性は読み取り専用じゃなかったら
MsgBox "誰か先に使ってるみたいです。" & vbCrLf & "使えるようになったら通知します。", , "使用中のファイル"
End If
End If
End Sub

同じ事なんですが
Private Sub sample()
Dim file As String
file = "\\fumufumu\hoge\Book1.xls"

Workbooks.Open file
If Workbooks(Mid(file, InStrRev(file, "\") + 1)).ReadOnly = True Then 'もしも読み取り専用だったら
If (GetAttr(file) And vbReadOnly) = 0 Then 'でもファイル属性は読み取り専用じゃなかったら
MsgBox "誰か先に使ってるみたいです。" & vbCrLf & "使えるようになったら通知します。", , "使用中のファイル"
End If
End If
End Sub

お礼

回答ありがとうございます。
「ｘｘｘ.xlsは編集のためロックされています」が出なかったので、てっきりメッセージが返って来ないものと思い込んでいました。
今日職場で試してみたところ、メッセージが返って来ることを確認しました。
欲を言うと、誰が使っているか知りたいのですが、ＶＢＡからは無理なようですね。
コマンドラインか何かで外部的にエクセルを立ち上げて、誰が使っているか表示するようなことはできないでしょうか？
とりあえず現在は、誰かが使っている時は、そのまま使うか、または一旦該当ブックを閉じ、該当のフォルダを開くエクスプローラを起動して、通常の開き方を選べるようにしています。