主题：授权

此主题相关图片如下：123_爱奇艺.jpg

 

If Functions.Execute("ShouQuan","工资","装砖工工资")

    Forms("新增装砖工工资").open

Else

    RibbonTabs("业务管理").Groups("工资").Visible = False

End If

这是一个菜单授权代码，有权限的人可以点开，当没有权限时登录的时候就不要看见，现在的问题是，当这个人没有权限，登录的时候可以看见，当点了之后才会消失，这个怎么处理呀

下面代码，写到LoadUserSetting事件去

 

If Functions.Execute("ShouQuan","工资","装砖工工资")

    RibbonTabs("业务管理").Groups("工资").Visible = True

Else

    RibbonTabs("业务管理").Groups("工资").Visible = False

End If

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

 

If Functions.Execute("ShouQuan","单位信息","赊账客户维护")

    RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = True

Else

    RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = False

End If

 

If Functions.Execute("ShouQuan","单位信息","往来单位维护")

    RibbonTabs("系统维护").Groups("单位信息").Items("往来单位维护").Visible = True

Else

    RibbonTabs("系统维护").Groups("单位信息").Items("往来单位维护").Visible = False

End If

 

If Functions.Execute("ShouQuan","单位信息","往来单位维护") AndAlso Functions.Execute("ShouQuan","单位信息","赊账客户维护")

    RibbonTabs("系统维护").Groups("单位信息").Visible = True

ElseIf  Functions.Execute("ShouQuan","单位信息","往来单位维护") OrElse Functions.Execute("ShouQuan","单位信息","赊账客户维护")

    RibbonTabs("系统维护").Groups("单位信息").Visible = True

ElseIf  ---------------------

    RibbonTabs("系统维护").Groups("单位信息").Visible = False

End If

 

老师，我这上面连个代码，没有哪个权限不显示哪个权限，可以成功，后面这个代码是判断功能组，当都有权限或者，或者有一个权限功能组就显现，当权限都没有的情况下才是功能组不显示，这个条件怎么写呀，还有就是功能组下有很多的权限怎么判断，想写CASE语句，可是不知道怎么写，请教了

比如，先把功能组全部隐藏起来，然后，参考红色代码

 

If Functions.Execute("ShouQuan","单位信息","赊账客户维护")

    RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = True

    RibbonTabs("系统维护").Groups("单位信息").Visible = True

Else

    RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = False

End If