避免警告和錯誤的按鈕，打開超鏈接單元

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