主题：授权

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

 

授权已做

 

 

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

 

客户订砖 已经指定了人员拥有权限，菜单代码

If Functions.Execute("ShouQuan","销砖","客户订砖")

    Forms("新增客户订砖").open

Else

    RibbonTabs("业务管理").Groups("销砖").Items("客户订砖").Enabled = False

    MessageBox.show("权限不足")

End If

 

 

老师，看一下哪出问题了