可以了,谢谢!
AfterOpenProject事件的代码如下:
If User.Type <> UserTypeEnum.Developer
Forms("用户登录").open
If MyName = "" Then \'如果用户选择\'取消\'
Syscmd.Project.Exit(False)
Return \'取消时必须中止后面的代码,否则会出错
End If
End If
e.Form.Close
Forms("导航").Open() \'用户登录窗口的确定按钮加上这句就可以了
2025-01-03新版的必须要加上这句才可以;
但原来2025-01-03以前的版本一直没有这句普通用户也正常打开,因为afteropenProject代码的下面有一行Forms("导航").show()
不知道为什么这样? 但总这加上就可以了
谢谢!