如何在Excel VBA项目的CustomUI自定义功能区中显示版本号

方案1：使用Label控件的getLabel回调（最优） #

首先纠正一个常见误区：Label控件并非没有回调方法，它原生支持getLabel属性用于动态赋值，完全满足只读显示版本号的需求，无需使用可编辑控件。

配置步骤 #

1. 修改CustomUI XML配置，新增Label控件并绑定回调：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonOnLoad">
  <ribbon>
    <tabs>
      <tab id="CustomTab" label="你的自定义选项卡">
        <group id="InfoGroup" label="信息">
          <labelControl id="AppVersion" getLabel="GetVersionLabel" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

2. 编写VBA回调代码：

' 全局存储Ribbon实例
Dim myRibbon As IRibbonUI

' Ribbon加载时触发，保存实例用于后续刷新
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set myRibbon = ribbon
End Sub

' Label控件的动态文本回调
Sub GetVersionLabel(control As IRibbonControl, ByRef returnedVal)
    returnedVal = "版本：" & ThisWorkbook.Sheets("Sheet1").Range("A1").Text
End Sub

' 版本号更新时调用此方法刷新功能区显示
Sub UpdateVersionDisplay()
    myRibbon.InvalidateControl "AppVersion"
End Sub

该方案实现的版本号完全只读，用户无法编辑，也不需要额外处理输入事件，性能最优。

方案2：EditBox实现只读效果 #

如果因布局需求必须使用EditBox，只需增加onChange回调即可屏蔽用户输入：

1. CustomUI XML配置：

<editBox id="VersionEdit" getText="GetVersion" onChange="ResetVersion" />

2. 新增VBA回调：

Sub ResetVersion(control As IRibbonControl, inputText As String)
    ' 直接刷新控件覆盖用户输入内容
    myRibbon.InvalidateControl "VersionEdit"
End Sub

用户输入内容后会立刻被重置为正确版本号，间接实现只读。如需完全禁用编辑，可给EditBox添加enabled="false"属性，仅显示为灰色只读状态即可。

方案3：备选落地方案 #

你提到的两个备选方案也可根据场景选择：

• 按钮触发弹出版本：给按钮绑定onAction回调，点击后执行MsgBox "当前版本：" & ThisWorkbook.Sheets("Sheet1").Range("A1").Text，适合版本号无需常驻显示的场景
• 悬浮提示显示版本：给按钮配置getSupertip回调，鼠标悬浮时显示版本号，不占用功能区横向空间

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