跳过自动弹出"Open as read-only?“

Question

目前，我使用以下命令逐个打开一组工作簿：

Workbooks.Open Filename:=file, Password:="" 

通常这些文件是在read-only模式下not打开的，这是我想要的。但对于某些文件，前一行弹出如下窗口：

​

在这种情况下，我仍然想打开文件(裁剪Yes)，即使它将是read-only。有人能告诉我如何通过VBA命令而不是单击来自动执行此选择吗？

Answer 1

Excel有许多“通知”，您可以通过将Application.DisplayAlerts设置为False来关闭它们。

在打开工作簿之前将其设置为False，然后在打开工作簿后将其设置回True，这样就不会消除任何其他后续警报。

将特定的Open设置为只读？某些工作簿上会出现警报，因为这些工作簿上次保存时选中了“推荐只读”复选框。在没有“推荐只读”设置的情况下重新保存这些工作簿将停止提示只读，但这可能不是您想要的。

但是，Workbooks.Open方法(MSDN)有一个可以指定的ReadOnly参数：

Workbooks.Open Filename:=file, Password:="", ReadOnly:=False

这应该会在可写模式下打开工作簿，即使它是使用“建议的只读”设置保存的-据我所知，指定此参数将跳过“打开为只读”？警告并使用您提供的设置...

Answer 2

我只想指出建议的答案是不正确的：

直接从MSDN获取有关ReadOnly标志的信息：

https://msdn.microsoft.com/en-us/library/office/ff835182.aspx

True以只读方式打开文档。此参数不会覆盖已保存文档上的只读建议设置。例如，如果文档是在建议只读的情况下保存的，则将ReadOnly参数设置为False不会导致该文件以读/写方式打开。

Answer 3

使用ReadOnly参数：

Workbooks.Open Filename:=file, Password:="", ReadOnly:=True

那么消息就不会弹出来了。