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

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

1 个答案: