Excel宏启用工作簿打开时创建带自定义按钮的自定义选项卡

嘿，我懂你的需求——之前的代码用的是Excel旧版的菜单栏系统，所以按钮才会跑到“加载项”或者“工具”菜单里。要创建全新的自定义选项卡，我们得改用更贴合现代Excel的方式来构建命令栏，下面是调整后的完整代码，直接放到ThisWorkbook模块里就能用：

Private Sub Workbook_Open()
    Dim customTab As CommandBar
    Dim customGroup As CommandBarControl
    Dim customButton As CommandBarControl
    Dim tabName As String
    Dim groupName As String
    Dim buttonCaption As String
    
    ' 自定义元素名称，按需修改
    tabName = "我的专属工具"
    groupName = "核心操作"
    buttonCaption = "运行我的宏"
    
    ' 先清理已存在的同名选项卡，避免重复创建
    On Error Resume Next
    Application.CommandBars(tabName).Delete
    On Error GoTo 0
    
    ' 创建新的自定义选项卡
    Set customTab = Application.CommandBars.Add( _
        Name:=tabName, _
        Position:=msoBarTop, _
        Temporary:=True) ' Temporary设为True时，关闭Excel后自动删除选项卡；要永久保留就改成False
    
    ' 让选项卡显示出来
    customTab.Visible = True
    
    ' 在选项卡下添加自定义分组
    Set customGroup = customTab.Controls.Add(Type:=msoControlPopup)
    customGroup.Caption = groupName
    
    ' 在分组里添加目标按钮
    Set customButton = customGroup.Controls.Add(Type:=msoControlButton)
    With customButton
        .Caption = buttonCaption
        .OnAction = "NameOfMyMacro" ' 替换成你的宏的实际名称
        .FaceId = 5872 ' 图标ID，可搜索"Excel FaceId列表"更换心仪图标
        .Style = msoButtonIconAndCaptionBelow ' 图标+文字下方的显示样式
        .TooltipText = "点击运行我的自定义宏" ' 鼠标悬停时的提示文字
    End With
End Sub

关键细节说明： #

• 清理旧控件：开头的删除操作是为了防止每次打开工作簿都重复生成相同选项卡，避免界面混乱。
• Temporary参数：设为True时，这个自定义选项卡仅在当前工作簿打开时存在，关闭Excel后自动消失，不会影响其他工作簿；如果希望选项卡永久保留（打开其他工作簿也能看到），可以改成False，但要注意Excel信任中心的宏设置。
• 分组逻辑：用msoControlPopup类型创建的控件就是选项卡下的分组，能让按钮布局更有条理。
• 宏路径注意：如果你的宏不在标准模块里，OnAction需要加上模块名，比如"Module1.NameOfMyMacro"。

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