主题：[求助]打开项目只显示独立窗口的代码

老师：除开发者和管理员外，其他人员打开项目时只显示独立窗口1，其他所有的功能区全部隐藏，代码怎么写呢

If User.Type = UserTypeEnum.User Then
    Forms("窗口1").Open
    For Each r As object In RibbonTabs
        r.visible = False
    Next
End If

代码放在哪里最好？

 afterOpenProject事件

 或者LoadUserSetting事件

谢谢有点甜老师，如果所有的表和配置栏都不显示，怎么写？

 

Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.ConfigToolBar.Visible = False     '配置栏

For Each t As Table In Tables
    t.Visible = False
Next

搞错了，我的意思是，所有的功能区、配置栏和表都不显示，只显示窗口1，麻烦有点甜老师重新给我写一个，谢谢！

If User.Type = UserTypeEnum.User Then
    Forms("窗口1").Open
    For Each r As object In RibbonTabs
        r.visible = False
    Next
    Dim a As object = BaseMainForm.controls("C1Ribbon1")
    a.ConfigToolBar.Visible = False     '配置栏
   
    For Each t As Table In Tables
        t.Visible = False
    Next  
End If

谢谢老师！！！