通过 VBA 宏打开 MS Excel 时禁用“更新链接消息”

Question

我正在做一个自动运行的宏，但它是受密码保护的。在我删除所有密码后，它可以以不同的格式保存文件。

问题是 MS Excel 会显示一条关于“自动更新链接”的弹出消息。我试图从 MS Excel 选项中禁用所有设置，但对话框仍然出现。

所以，我正在考虑添加一些代码来避免该弹出窗口。

这是我的代码：

Sub Auto_Open()
    Workbooks.Open "C:\Test\WorkbookTest.xlsx"
    ActiveWorkbook.UnprotectSharing ("galleta")
    ActiveSheet.Unprotect ("galleta")
    ChDir "C:\Users\user\Desktop\Reportes"
    Sheets("BES").Select
    ActiveSheet.Unprotect ("galleta")
    Sheets("BE800").Select
    ActiveSheet.Unprotect ("galleta")
    Sheets("BECM").Select
    ActiveSheet.Unprotect ("galleta")   
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\user\Desktop\Reportes\test.mht", FileFormat:= _
        xlWebArchive, CreateBackup:=False
End Sub

我将我的自动运行设置为带有密码的东西代码，因为它可能对某人有所帮助。

其他数据：

• Office 2007，
• Windows Server 2008 R2。

该消息似乎是为了保护用户的平台，但我们可以通过vba 正手配置用户偏好。

谢谢你们。

Answer 1

Workbooks.Open 的第二个参数是 UpdateLinks。将其设置为 False：

Workbooks.Open "C:\Test\WorkbookTest.xlsx",False