如何禁用Excel功能区HyperlinkInsert并替换为自定义函数？

问题背景 #

需要停用Excel默认的「插入超链接」功能，改用自定义函数实现。已编写自定义功能区XML和VBA回调代码，但运行时弹出错误：

Incorrect number of arguments or incorrect property assignment

现有代码 #

自定义功能区XML（原代码存在重复根节点问题）

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonLoaded">
    <!-- Modife les commandes standard Excel Doit etre placé avant STARTFROMSCRTCH-->   
    <commands>
    <!-- Réattribue l'action du bouton "Insérer un lien hypertexte" -->
    <command idMso="HyperlinkInsert" onAction="Test" />
    <command idMso="RefreshAll" onAction="Actualisation_Tableau" />
    <command idMso="Refresh" onAction="Actualisation_Tableau" />  
    </commands>
    <ribbon>    
        <tabs>
            <!-- 此处省略自定义标签内容 -->
        </tabs>
    </ribbon>
</customUI>

原VBA回调代码

'Callback for customButton6 onAction
'Pose un lien hypertexte
Sub Test(control As IRibbonControl)
    POSe_HYPL
End Sub

错误原因 #

重写Excel内置命令（idMso指定的命令）的onAction回调函数，必须包含额外的cancelDefault参数，用于控制是否执行原命令的默认行为。原代码的Test函数仅传入control参数，参数数量不匹配，触发参数错误提示。

修复方案 #

1. 修正VBA回调函数参数，添加cancelDefault As Boolean参数，并设置cancelDefault = True阻止默认超链接对话框弹出。
2. 清理XML结构，删除重复的<customUI>根节点，保证XML合法。

修改后的VBA代码 #

'Callback for HyperlinkInsert onAction
'替换默认插入超链接功能
Sub Test(control As IRibbonControl, ByRef cancelDefault As Boolean)
    '阻止默认的超链接对话框
    cancelDefault = True
    '执行自定义超链接逻辑
    POSe_HYPL
End Sub

修正后的完整XML代码 #

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonLoaded">
    <!-- 修改Excel标准命令，需放在STARTFROMSCRTCH之前 -->   
    <commands>
        <!-- 重写"插入超链接"按钮的动作 -->
        <command idMso="HyperlinkInsert" onAction="Test" />
        <command idMso="RefreshAll" onAction="Actualisation_Tableau" />
        <command idMso="Refresh" onAction="Actualisation_Tableau" />  
    </commands>
    <ribbon>    
        <tabs>
            <!-- 此处添加你的自定义标签内容 -->
        </tabs>
    </ribbon>
</customUI>

补充说明 #

• 针对RefreshAll和Refresh的回调函数Actualisation_Tableau，若后续出现同类错误，同样需要添加cancelDefault参数并按需设置值。
• 确保自定义函数POSe_HYPL逻辑实现正确，无语法或功能错误。

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