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

请问：

我设置了默认用户登录，并利用外部表设置了自定义用户登录，为什么在菜单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

1、加入msgbox，看是否触发LoadUserSetting事件代码？

2、如果你是定义 _UserName、_UserGroup这种，你就要把代码写到自己的登陆窗口里，而且不能用User.Name

谢谢！