用
Sub Auto_Open()
welcome.show
End Sub
welcome是你的欢迎界面
"但好象不行,不知是哪个地方有问题"
--------------------------
要新建一个模块存放上面那个过程,在左边右键添加新模块
Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False
frm1.show
For i = 1 To 100000
DoEvents
Next i
frm1.hide
ThisWorkbook.Application.Visible = True
End Sub
'很难完全隐藏EXCEL的开始启动