主题：快捷菜单有问题，请修正！

收到

菜单控件的问题,我解决不了,你可以这样:

For Each cmd as RibbonMenu.ContextCommand in  ContextMenus("Cell").Items("Filter").Items
    cmd.Enabled = False
Next

有解的,大家自己先想想

group没有这个问题啊，快捷菜单才有。
我只是一个想法，先要测试一下，稍等。

For Each xm as Object in RibbonTabls("A").Groups("Tj").Items
   xm.Enabeld = False   
Next

快捷菜单比较复杂，用自定义函数：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.rar

在命令窗口测试：

For Each xm as RibbonMenu.Button in RibbonTabls("A").Groups("Tj").Items
    Output.Show(xm.Name)
Next

我用8楼的文件测试,可以啊:
Dim abc As RibbonMenu.ContextCommandMenu = ContextMenus("Cell").Items("Filter")
Functions.Execute("test",abc,false)

没错,不同类型判断,只能用object的
实在不行，设置项目名称的时候，做到有规律，例如cmd开头的表示按钮，mnu开头的表示子菜单