在excel中弹出警报时按Enter键

Question

我在excel 2016中使用ActiveWorkbook.Lockserverfile程序

当我运行我的宏并且在另一台计算机上打开此程序（ActiveWorkbook.lockServer）的文件时，我收到一条警告：

我希望自动按下“输入”按钮，以便文件以只读方式打开。

我打开其他建议，例如关闭警报（不起作用）

Answer 1

Sub OpenReadOnly()
    Dim NewWb As Workbook

    ' change to your file path
    WbFullName = "C:\Users\Omerp\Desktop\test1.xlsx"

    Set NewWb = Workbooks.Open(WbFullName, ReadOnly:=True)
End Sub