[讨论]自定义菜单在excel2007中无法实现

hyq56125

我用 excel+VBA做了一个小程序，启动excel簿后隐藏系统菜单，启用自定义菜单，该代码在 excel 97——2003中能正常实现，但用 excel 2007中，则系统菜单照样存在，无法隐藏，而在系统各菜单的最后后多了一个“加载项”菜单，只有点击“加载项”后才能看到自定义菜单。

代码如下，请给位指点，如何在 excel 2007中能实现自定义菜单（仅显示自定义菜单，系统菜单等全部隐藏或禁用）。

Private Sub Workbook_Activate()   
      Application.ScreenUpdating = False    
       '隐藏主菜单、常用、格式、VB菜单及控件工具箱和窗体
       Call SetBarVisible(False)
       '屏蔽 Alt+F11，Alt+F8等快捷键和功能键    
       Call SetOnkey(True)      
       Application.CommandBars("MyBar_hyq").Enabled = True              '启用自定义菜单
       Application.CommandBars("MyBar_hyq").Visible = True   
       With Application
            .WindowState = xlMaximized
            With .Windows(1)
               .Caption = ""                      ' "主界面"
               .WindowState = xlMaximized
            End With
       End With
       Application.ScreenUpdating = True   
End Sub

Private Sub Workbook_Open()
     'Exit Sub
     Call SetMysysInit            '初始化系统
     Call MyBar_Menu              '设置自定义菜单  
     Call ReadParameterFormTxt    '读取本站参数  
End Sub

[此贴子已经被作者于2008-10-20 21:16:50编辑过]

hyq56125

请各位看看我的问题，谢谢~！

hyq56125

我的帖子，没人看啊

请各位高手指点一二。

lsftest

最好有附件。

jiulongpo

我也有同感,不能在2007下使用

vip888

我看着有点茫然呢？

hyq56125

原帖由 lsftest 于 2008-10-29 01:37 发表
最好有附件。

我觉的1楼上的代码基本说清了excel 菜单的控制情况，至于sub 中的内容无非就是 visible 和 Enabled 的取值了。

whqllx

在excel 2007 中不能用vba控制功能区菜单和命令，只能用xml方式来定制custonUI。

洋海吴

EXCEL2003刚好用熟，而且会用VBA，突然又用EXCEL2007无法适应呀

sukey1520

找了半天还是不能在2007中添加菜单吗？