通过VBA添加自定义右键菜单，打开指定格式超链接及实现特定需求

实现步骤： #

1. 创建右键主菜单项
   在ThisWorkbook模块中添加以下代码，打开工作簿时直接在右键单元格菜单中添加主菜单项，无需嵌套子菜单：

Private Sub Workbook_Open()
    Dim cmdBar As CommandBar
    Dim cmdBtn As CommandBarButton
    
    ' 先删除已存在的同名菜单，避免重复创建
    On Error Resume Next
    Application.CommandBars("Cell").Controls("打开文档").Delete
    On Error GoTo 0
    
    ' 在右键菜单中添加主菜单项
    Set cmdBar = Application.CommandBars("Cell")
    Set cmdBtn = cmdBar.Controls.Add(Type:=msoControlButton, Before:=1)
    With cmdBtn
        .Caption = "打开文档"
        .OnAction = "OpenSelectedHyperlinks"
        .Style = msoButtonCaption
    End With
    
    Set cmdBtn = Nothing
    Set cmdBar = Nothing
End Sub

2. 限制菜单仅在特定列显示
   在需要生效的工作表模块（如Sheet1）中添加以下代码，右键点击时判断是否为目标列（示例为第A列，可自行修改列号），控制菜单的显示状态：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton
    
    On Error Resume Next
    Set cmdBtn = Application.CommandBars("Cell").Controls("打开文档")
    On Error GoTo 0
    
    If Not cmdBtn Is Nothing Then
        ' 仅在点击第A列时显示菜单，修改Column值可指定其他列（如B列写2）
        cmdBtn.Visible = (Target.Column = 1)
    End If
End Sub

3. 核心打开文件宏（支持多格式、无警告、多选）
   插入标准模块（菜单栏→插入→模块），添加以下代码，处理选中单元格的超链接，调用系统默认程序打开文件，避免安全警告，支持.doc/.pdf/.xls/.jpg/.zip等格式：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub OpenSelectedHyperlinks()
    Dim cell As Range
    Dim hyperLink As Hyperlink
    Dim filePath As String
    
    ' 遍历选中的所有单元格，批量打开超链接
    For Each cell In Selection
        If cell.Hyperlinks.Count > 0 Then
            Set hyperLink = cell.Hyperlinks(1)
            filePath = hyperLink.Address
            
            If Len(filePath) > 0 Then
                ' 调用系统默认程序打开文件，无警告提示
                ShellExecute 0, "open", filePath, "", "", 1
            End If
        End If
    Next cell
End Sub

关键说明： #

• 格式兼容：ShellExecute会自动调用系统对应程序打开文件，完全覆盖你需要的各类格式。
• 无警告弹窗：相比Excel自带的FollowHyperlink方法，该方式不会触发安全警告。
• 多选支持：选中多个含超链接的单元格，右键点击"打开文档"即可批量打开所有文件。
• 列自定义：修改Worksheet_BeforeRightClick中的Target.Column = 1为目标列号，即可指定仅该列右键显示菜单。

内容的提问来源于stack exchange，提问作者Waleed