Excel VBA - 在文件打开时关闭通知或只读选项

Question

我有一个带有宏的工作簿，可供公司内部网上不同位置（城镇）的多个人使用。当一个人以读/写访问权限打开它时，我们不希望其他人拥有“通知可用时”或“只读访问权”选项。这是为了避免人们在桌面上保存文件的情况，之后有人必须更新主文件。

如果A人打开文件而B人试图打开文件时，我该怎么做呢，他们会收到一条消息说再试一次？我尝试了下面的代码，但它没有用。

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