避免打开超链接单元格的按钮的警告和错误

问题描述

|| 我将以下代码分配给excel工作表中的按钮。

Sub Hyperlink()

Worksheets(\"Sheet Name\").Cells(ActiveCell.Row,3).Hyperlinks(1).Follow

End Sub

单击该按钮时，excel将打开活动行的附件。只要活动行中有超链接，并且弹出警告窗口时用户单击“确定”，此方法就可以正常工作。 如果可能，我如何： 避免打开超链接文件的警告？ 避免，禁用或自定义以下错误消息。 空行或没有超链接文件。 （运行时错误\'9 \'：下标超出范围。） 存在超链接文件时，单击“取消”。 （运行时错误\'-24147467260（80004004）\'：无法将超链接跟踪到目标。） 这是弹出消息的屏幕截图。 谢谢。 我还在这里找到了一种禁用超链接警告的方法。 虽然，我不想为工作簿的每个用户执行此操作...     

解决方法

Display.Alerts = False将不起作用，否则任何坏人都可以关闭警告。这可能会部分为您工作。

Sub Hyperlink()
On Error Resume Next
Worksheets(\"Sheet Name\").Cells(ActiveCell.Row,3).Hyperlinks(1).Follow
If Error <> \"\" Then MsgBox (\"Nowhere to go,Nothing to see\")
End Sub