[已解决]怎样屏蔽自定义菜单中的某几个

ktsli

小弟用2010版写了个小系统，现在想实现不同的用户登陆进去后，能执行的自定义菜单项不一样，比如一般用户登陆进去后，自定义菜单项-----“导入数据”显示灰色或者干脆不显示，当管理员登陆进去后，可以正常使用，该怎么做，望大侠们指导一下，谢谢！（注意是2010版，不是03版）

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-27 20:06

1. Sub test()
   
2.     Dim mb As MenuBar
   
3.     Dim mu As Menu
   
4.     On Error Resume Next
   
5.     Application.MenuBars("mymenu").Delete
   
6.     Set mb = Application.MenuBars.Add("mymenu")
   
7.     Set mu = mb.Menus.Add("菜单")
   
8.     mu.MenuItems.Add "禁用本子菜单", "mysub"
   
9.     mu.MenuItems.Add "启用上一个子菜单", "mysub2"
   
10.     mb.Activate
    
11. End Sub
    
12. 
    
13. Sub mysub()
    
14.     Application.MenuBars("mymenu").Menus("菜单").MenuItems("禁用本子菜单").Enabled = False
    
15. End Sub
    
16. 
    
17. Sub mysub2()
    
18.     Application.MenuBars("mymenu").Menus("菜单").MenuItems("禁用本子菜单").Enabled = True
    
19. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

不显示只要设置相关的菜单项的visible属性为false就成了。

ktsli

hwc2ycy 发表于 2014-3-27 13:53
不显示只要设置相关的菜单项的visible属性为false就成了。

MenuBars("MyMenu").Menus.Add Caption:="导入下单数据"
       MenuBars("MyMenu").Menus("导入下单数据").MenuItems.Add Caption:="OEM下单数据", OnAction:="导入OEM下单数据"
我也这样想过，但是不知道在哪里设置，这是我添加菜单的语句，指导一下，谢谢！！！

hwc2ycy

有个enabled属性可以使用。

hwc2ycy

1. Sub test()
   
2.     Dim mb As MenuBar
   
3.     Dim mu As Menu
   
4.     On Error Resume Next
   
5.     Application.MenuBars("mymenu").Delete
   
6.     Set mb = Application.MenuBars.Add("mymenu")
   
7.     Set mu = mb.Menus.Add("菜单")
   
8.     mu.MenuItems.Add "禁用本子菜单", "mysub"
   
9.     mu.MenuItems.Add "启用上一个子菜单", "mysub2"
   
10.     mb.Activate
    
11. End Sub
    
12. 
    
13. Sub mysub()
    
14.     Application.MenuBars("mymenu").Menus("菜单").MenuItems("禁用本子菜单").Enabled = False
    
15. End Sub
    
16. 
    
17. Sub mysub2()
    
18.     Application.MenuBars("mymenu").Menus("菜单").MenuItems("禁用本子菜单").Enabled = True
    
19. End Sub

复制代码

ktsli

老师真是太好了，效果实现了，太感谢了！！！