主题：快捷菜单权限

做了个“生产订单”的快捷菜单，现在想赋予其操作权限，但不知道快捷菜单的代码是什么，所以求解修改代码：

If User.Name = "管理员" Then
     RibbonTabs("生产订单").Visible = False
Forms("订单").Show
Tables("订单").Filter="审核=False"
Else
MessageBox.Show("你无权操作此项","特别提醒您")
    End If

错误图片

 

此主题相关图片如下：1.png

我有一主页面，上面有一个按钮，对按钮进行如下缺陷设置，

If e.Form.Controls("Button1").Enabled = (User.Name = "管理员" ) Then
   With e.Sender
    ContextMenus("系统管理").Show(e.Sender,-20, .height) '则在鼠标位置显示快捷菜单
End With
Else
    MessageBox.show("你无权此操作!")
End If

然后弹出“生产计划”，“生产订单”，“生产报表”快捷菜单中的三个标准按钮

请老师指教

感觉有点难，红袍老师能直接写出代码以供学习吗，谢谢了。

代码写入后测试，变成窗口里面所有的按钮都不是管理员登陆都不能操作了。不是对单个快捷菜单中的单个标准按钮进行更改的

红袍老师，刚才修改测试后，代码控制了按钮的权限为“管理员”，不是我想要的，我想要打开按钮依然会弹出快捷菜单，控制快捷菜单中的标准按钮（对菜单进行权限控制），请红袍老师帮忙。

红袍老师，请问我如下代码怎样实现所有人都可以打开“生产管理”按钮弹出快捷菜单所有内容，只有“生产经理”打开后快捷菜单“生产订单”隐藏起来

If User.Name = "技术经理" Then
With e.Sender
            ContextMenus("生产管理").Items("生产订单").Visible =False
     End With  
Else
MessageBox.show("你无权此操作!")
End If

我做的这个是只有“生产经理”可以打开“生产管理”按钮，弹出除“生产订单”外的所有快捷菜单内容

请红袍老师更改代码

谢谢老师