主题：[求助]关于权限的问题

是这样的，我的权限代码（附在下面），在正常使用时是没有问题的，但是如果我在系统中新加入了一个菜单、分组、按钮中的随便一个，并在菜单权限表做好了权限设置，然后其他用户进行远程升级，成功升级的用户是没有问题的，如果没有升级的用户在打开系统的时候就会提示新加入的名称不存在！并且原来的权限设置也失效了，这种情况个怎么解决？

或者，能不能实现如果不升级则所有菜单不可用？我想到了如下代码但是不知道应该怎么加进去：

For Each dr As RibbonMenu.Tab In RibbonTabs()

dr.Enabled = False

Next

权限代码如下：

For Each dr As DataRow In DataTables("菜单权限表").Select("分组 = '" & _UserGroup & "'" )
    If dr.IsNull("分组名") Then
        RibbonTabs(dr("菜单名")).Visible = Not dr("不可见")
        RibbonTabs(dr("菜单名")).Enabled = Not dr("不可用")
    ElseIf dr.IsNull("按钮名") Then
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Visible = Not dr("不可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Enabled = Not dr("不可用")
    Else
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Visible = Not dr("不可见")
        RibbonTabs(dr("菜单名")).Groups(dr("分组名")).Items(dr("按钮名")).Enabled = Not dr("不可用")
    End If
Next