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