open事件代码为什么不响应，求助

guang856

我用代码实现自定义菜单栏，放在工作簿的open事件里，为什么不执行呢？查了n次也没找出错误，求大神指点

山菊花

Private Sub Workbook_Open()
    On Error Resume Next
    Application.CommandBars("MyToolbar").Delete
    '创建一个名为“mytoolbars”的工具栏

    With Application.CommandBars.Add("MyToolbar", , , True)
        .Visible = True

        '在工具栏添加一个按钮
        With .Controls.Add
            .FaceId = 263         '为按钮制定一个图标，263代表excel软件图标
            .OnAction = "宏1"         '为按钮制定宏，即单击按钮时调用的过程名称
            .Caption = "按钮一(&Q)"        '为按钮指定显示标题（即显示在工具栏的字符）
            .Style = msoButtonIconAndCaption  '让按钮同时显示图标与文字
            .TooltipText = "zheshi我的第一个按钮"    '为按钮添加提示（鼠标指向按钮时显示的信息）
        End With

        '在工具栏添加一个弹出式菜单
        With .Controls.Add(Type:=msoControlPopup)
            .Caption = "人事工具"      '为弹出式菜单命名
            With .CommandBar.Controls.Add   '为弹出式菜单创建第一个二级菜单按钮
                .FaceId = 483           '为按钮制定图标
                .OnAction = "宏2"        '为按钮制定宏，即单击此按钮时调用的过程名称
                .Caption = "工资计算"    '为按钮制定标题，即显示在工具栏的字符
                .Style = msobuttontconandcaption  '让按钮同时显示图标和文字
            End With
            With .CommandBar.Controls.Add    '为弹出式菜单创建第一个二级菜单按钮
                .FaceId = 483           '为按钮制定图标
                .OnAction = "宏3"        '为按钮制定宏，即单击此按钮时调用的过程名称
                .Caption = "个税计算"    '为按钮制定标题，即显示在工具栏的字符
                .Style = msobuttontconandcaption  '让按钮同时显示图标和文字
            End With
        End With

    End With
End Sub

guang856

太感谢了，按照二楼的代码，可以运行了

guang856

再请教个问题，
现在代码放在xlsm文件里，是可以随文件打开自动添加自定义菜单了，
但我想把代码放在加载项xla文件里，让所有表格都可以用自定义菜单，就又加载不出来了。。。
这是为什么呢？求答疑