excel - Excel VBA - ファイルを開くときに通知または読み取り専用オプションをオフにする

Question

企業イントラネットのさまざまな場所 (町) にいる複数の人が利用できるマクロを含むワークブックがあります。ある人が読み取り/書き込みアクセスで開いた場合、他の人が「利用可能になったら通知する」または読み取り専用アクセスのオプションを持つことは望ましくありません。これは、ユーザーがデスクトップにファイルを保存した後で、誰かがマスター ファイルを更新しなければならないという状況を回避するためです。

B さんがドキュメントを開こうとしているときに A さんがドキュメントを開いた場合、後でもう一度やり直すというメッセージが表示されるようにするにはどうすればよいですか? 以下のコードを試しましたが、うまくいきませんでした。

Private Sub Workbook_Open()

Dim blnReadonly As Boolean

  Application.DisplayAlerts = False

blnReadonly = ThisWorkbook.ReadOnly

If blnReadonly = True Then
    MsgBox ("Application may not open in read only mode, try again later")
    Application.Quit
End If

Application.DisplayAlerts = True

End Sub