关于使用OPEN的方式打开另一工作簿时遇到的问题

[轮子酱]

如题，由于在代码中需要只读open另一个表格中的一个excel文件并复制一些内容，但在打开表格时，由于目标表格有些外源链接，会显示：此工作簿包含到一个或多个可能不安全的外部源链接

每次需要手动点击不更新选项才能继续步骤，所以想询问一下这个步骤要如何能够跳过呢？

    Application.ScreenUpdating = False
    Sheets("XXXX").Select
    Columns("A:G").Select
    Selection.ClearContents
    
    Dim bok As Workbook
    Set bok = Workbooks.Open("XXXXXXXXXXXXXXXXX\Cross Support Name List.xlsm", ReadOnly:=True)  '以只读方式打开工作簿。
    
    Windows("Cross Support Name List.xlsm").Activate
    Sheets("CrossSkill").Select
    Range("E7").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$7:$O$199").AutoFilter Field:=6, Criteria1:="EU"
    Range("C7:I1000").Select
    Selection.Copy
    Windows("Automatic Attandance Tool- 20191218.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste

[脆皮大雪糕]

百度搜索 如何找到excel外部链接，删除他

[VB业余爱好者]

你就在百度里面搜“此工作簿包含到一个或多个可能不安全的外部源链接”，并不是删除外部链接，只是关闭警告提示

[轮子酱]

引用 6 楼 VB业余爱好者 的回复:

你就在百度里面搜“此工作簿包含到一个或多个可能不安全的外部源链接”，并不是删除外部链接，只是关闭警告提示

有道理...我试试

[humanmagic]

Application.DisplayAlerts = False禁止显示提示和警告消息；当出现需要用户应答的消息时，Microsoft Excel将选择默认应答。

[VB业余爱好者]

https://jingyan.baidu.com/article/5d368d1ec776c23f61c0575f.html

[轮子酱]

引用 1 楼 脆皮大雪糕 的回复:

百度搜索 如何找到excel外部链接，删除他

可不就是这个外部链接不能删嘛...

[轮子酱]

引用 2 楼 VB业余爱好者 的回复:

https://jingyan.baidu.com/article/5d368d1ec776c23f61c0575f.html

您访问的页面已被删除啦 -_-!!

可能该条链接已经失效

返回首页
5秒后自动返回

[轮子酱]

引用 1 楼 脆皮大雪糕 的回复:

百度搜索 如何找到excel外部链接，删除他

准确来说那张表不是我维护的，我没有权限操作