模式窗口?试试
If Functions.Execute("授权1","文件管理") e.Form.BaseForm.Opacity = 0
e.Form.Close
Forms("文件管理").OpenEnd If