1

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

我该如何做到这一点，如果 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
4

0 回答 0