以只读方式打开，没有收到消息

Question

我有Excel VBA。一旦我打开 Excel 文件，用户窗体也会打开，而无需打开工作簿。我可以通过单击按钮打开工作簿，但我希望它是只读且不可编辑的。

现在我已经在文件 -> 信息 -> 写保护下激活了写保护。现在，当我打开 Excel 文件时，会出现消息：

“作者希望您以只读方式打开“file.xlsm” - 除非您需要进行更改。以只读方式打开？”

这不是我想要的。有没有办法忽略该消息或自动用“是”确认，这样当有人打开 Excel 文件时，该消息就不会出现？

注： 我不想使用代码

Set wb = Workbooks.Open(Filename:=MyFile, ReadOnly:=True)

因为我在打开excel时直接打开UserForm并且不显示工作簿，所以我无法使用此代码。 如果您想知道我如何打开文件，这也是我关于如何在不打开工作簿的情况下打开用户窗体的代码。 我的 ThisWorkBook 中的代码：

Private Sub Workbook_Open()
    showLoginForm    
End Sub

showLoginForm 代码：

Sub showLoginForm()
    If isSheetVisible Then
        ' Only Hide this workbook and keep the other workbooks visible
        ThisWorkbook.Windows(1).Visible = False
    Else
        ' There is no other workbook visible, hide Excel
        Application.Visible = False
        ThisWorkbook.Windows(1).Visible = False
    End If
    UserForm5.show vbModeless
End Sub

Answer 1

在代码开头添加

Application.DisplayAlerts = False