Избегайте предупреждений и ошибок для кнопки, открывающей ячейку с гиперссылкой

Question

У меня есть следующий код, назначенный кнопке на листе Excel.

Sub Hyperlink()

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

End Sub

Когда кнопка нажата, Excel откроет прикрепленный файл активной строки. Это работает нормально, если в активной строке есть гиперссылка и пользователь нажимает кнопку ОК, когда всплывает окно с предупреждением.

Если возможно, как я могу:

1. Избегать предупреждения об открытии файла с гиперссылкой?
2. Избегайте, отключайте или настраивайте следующие сообщения об ошибках.
   
   1. Пустая строка или нет гиперссылки.
      • (Ошибка времени выполнения '9': индекс вне диапазона.)
   2. Нажатие кнопки отмены при наличии файла с гиперссылкой.
      
      • (Ошибка во время выполнения '-24147467260 (80004004)': гиперссылка не может быть достигнута к месту назначения.)

Вот скриншоты всплывающих сообщений.

Спасибо.

Я также нашел способ отключить предупреждения о гиперссылках здесь.
Хотя я не хочу делать это для каждого пользователя рабочей книги ...

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