通过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