主题：[求助]关于用户编辑权限设定无法实现的问题

Select Case User.Name
    Case "张三","李四"
        Select Case e.Col.Name
            Case "第一列","第二列","第三列"
                e.Cancel = True
        End Select
End Select

切换用户后，发现代码不起作用。然后切换回系统菜单下，这时切换用户后发现代码起作用了。

不知道是怎么回事？求指教~~~~~

Public _UserName As String
Public _UserGroup As String

_UserName用户保存当前登录用户的名称，_UserGroup用于保存该用户的分组。