主题：[求助]还是用户权限判断问题，请老大看下用户登录窗口中登录按钮代码的权限判断代码有简洁一点的写法吗

此主题相关图片如下：20150525.jpg

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

点击浏览该文件:a项目.rar

像下面的代码，是一个按钮一个按钮的进行判断，如果有一个项目有几百个按钮，那要写上百段判断代码，很不现实，请老大给看下，有什么简洁的写法，

'//根据用户权限,判断功能区,功能组,命令按钮是否显示,或禁用//
If Functions.Execute("ShouQuan","销售单-审核")  Then
    RibbonTabs("销售管理").Groups("功能组2").Items("审核").Enabled = True  '//Enabled为True时,表示不禁用,为False时,表示禁用//
   Else
    RibbonTabs("销售管理").Groups("功能组2").Items("审核").Enabled = False  '//Enabled为True时,表示不禁用,为False时,表示禁用//
End If

If Functions.Execute("ShouQuan","销售单-反审")  Then
    RibbonTabs("销售管理").Groups("功能组2").Items("反审").Enabled = True  '//Enabled为True时,表示不禁用,为False时,表示禁用//
   Else
    RibbonTabs("销售管理").Groups("功能组2").Items("反审").Enabled = False  '//Enabled为True时,表示不禁用,为False时,表示禁用//
End If

If Functions.Execute("ShouQuan","销售单-导入")  Then
    RibbonTabs("销售管理").Groups("功能组2").Items("导入").Enabled = True  '//Enabled为True时,表示不禁用,为False时,表示禁用//
   Else
    RibbonTabs("销售管理").Groups("功能组2").Items("导入").Enabled = False  '//Enabled为True时,表示不禁用,为False时,表示禁用//
End If

If Functions.Execute("ShouQuan","销售单-导出")  Then
    RibbonTabs("销售管理").Groups("功能组2").Items("导出").Enabled = True  '//Enabled为True时,表示不禁用,为False时,表示禁用//
   Else
    RibbonTabs("销售管理").Groups("功能组2").Items("导出").Enabled = False  '//Enabled为True时,表示不禁用,为False时,表示禁用//
End If

除了这个参考案例，还能有其他方法吗？