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

发布于 2024-11-09 14:55:28 字数 705 浏览 2 评论 0原文

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

Sub Hyperlink()

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

End Sub

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

如果可能，我怎样才能：

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

这是弹出消息的屏幕截图。

谢谢。

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

原文

I have the following code assigned to a button in an excel worksheet.

Sub Hyperlink()

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

End Sub

When the button is clicked, excel will open the active row's attached file. This works fine as long as there is a hyperlink in the active row and the user clicks OK when the warning window pops up.

If possible, How can I:

Avoid the warning to open the hyperlinked file?
Avoid, disable, or customize the following error messages.
1. Empty row or no hyperlinked file.
  - (Run-time error '9': Subscript out of range.)
2. Clicking cancel when there is a hyperlinked file.
  - (Run-time error '-24147467260 (80004004)': The hyperlink cannot be followed to the destination.)

Here are screenshots of the pop-up messages.

Thank You.

I also found a way to disable hyperlink warnings here.
Although, I do not want to do this for every user of the workbook...

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

抱猫软卧 2024-11-16 14:55:28

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

Display.Alerts=False will not work, otherwise any bad guy could turn off warnings. This might work for you partially.

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

回复收藏 0 原文

~没有更多了~