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

Question

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

Sub Hyperlink()

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

End Sub

单击该按钮时，excel将打开活动行的附加文件。只要活动行中有超链接，并且弹出警告窗口时用户单击“确定”，这样就可以正常工作。

如果可能，我该怎么做：

1. 避免打开超链接文件的警告？
2. 避免，禁用或自定义以下错误消息
   1. 空行或没有超链接文件。
      • （运行时错误'9'：下标超出范围。）
   2. 当存在超链接文件时单击取消。
      
      • （运行时错误'-24147467260（80004004）'：超链接无法跟踪到目的地。）

Here are screenshots of the pop-up messages.

谢谢。

我还找到了一种方法来禁用超链接警告here.
虽然，我不想为工作簿的每个用户执行此操作...

Answer 1

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