主题：用户分组设置怎么不起作用

请问：

我设置了默认用户登录，并利用外部表设置了自定义用户登录，为什么在菜单LoadUserSetting中设置了如下代码，却不起作用？

If User.Group = "材料计划" Then
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("技术管理").Visible = False
    RibbonTabs("设备保管").Visible = False
 Else
   If User.Group = "材料保管" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("设备保管").Visible = False
    RibbonTabs("技术管理").Visible = False
Else
   If User.Group = "设备计划" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("材料保管").Visible = False
    RibbonTabs("技术管理").Visible = False
Else
   If User.Group = "设备保管" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("材料保管").Visible = False
    RibbonTabs("技术管理").Visible = False
Else
   If User.Group = "技术管理" Then
    RibbonTabs("材料计划").Visible = False
    RibbonTabs("设备计划").Visible = False
    RibbonTabs("设备保管").Visible = False
    RibbonTabs("材料保管").Visible = False
End If
End If
End If
End If
End If

谢谢！