主题：在LoadUserSetting中怎么不能用全局变量和内表数据

在LoadUserSetting代码中写了三段代码

If RibbonTabs.Contains("录入修改") Then
    If User.Name = "使用者" And Vars("使用者身份") = "教师"  Then   '如果登录的是【教师】
       RibbonTabs("录入修改").Visible = False
    Else
        RibbonTabs("录入修改").Visible = True
    End If
End If

Dim dr1 As DataRow = DataTables("登录信息").DataRows(0)
If RibbonTabs.Contains("查询打印") Then
    If User.Name = "使用者" And dr1("使用者身份") = "组长" Then   '如果登录的是【教师】
       RibbonTabs("查询打印").Visible = False
    Else
        RibbonTabs("查询打印").Visible = True
    End If
End If

If RibbonTabs.Contains("信息统计") Then
    If User.Name = "使用者"  Then   '如果登录的是【教师】
       RibbonTabs("信息统计").Visible = False
    Else
        RibbonTabs("信息统计").Visible = True
    End If
End If

只有第三代码生效，感觉都是红色字部分出问题了，一个是全局变量，一个是内表数据，因为考虑切换用户不适合我，我就在同一个使用者里增加了多种身份，请问有什么办法解决？

应该是全局变量和内表都没有形成之前就执行的这个代码吧？

如果无法隐藏这些功能区，那么能不能在用户登录后，禁用某些功能区？

如果想在BeforeOpenFile设置一下，在某中情况下不打开一个项目，该怎么写？

1、你在什么时候赋值的？

2、弹出值看看，如

msgbox(Vars("使用者身份"))