Excel 如何使用VBA更新工作簿的链接

我有一个excel文件（文件1），其中包含指向另一个工作簿（文件2）的链接，该工作簿位于sharepoint上并已加密。 因此，当我打开File1时，它会请求更新链接，我已经能够抑制这些链接并添加了UpdateLink代码，但是当代码运行时，它会请求加密文件的密码。如何避免此问题或将密码添加到vba代码中？请帮我更新代码。我使用了以下代码：-

Sub Workbook_Open()
    Application.AskToUpdateLinks = False
    Application.OnKey "^p", ""              '----> Disable Ctrl+P
    Application.EnableEvents = False
    'Call databaselook (Do not worry about this, it is referring to some other code of other purposes)
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
    Application.EnableEvents = True
End Sub