窗体打开和关闭老影响其他打开的excel 怎么办啊

wfjt

关闭时  其他开的excel也被关闭了

我觉得是  Application.Quit 的原因

请问老师 有什么办法解决吗  谢谢


关闭代码

[code=vb]Private Sub Workbook_Open()
Application.ScreenUpdating = False '关闭屏幕刷新
Application.Visible = False '不显示excel界面
UserForm1.Show 0
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

If MsgBox("确定要退出现金缴款单工具吗?", 64 + vbYesNo, "现金缴款单工具提示") = vbNo Then Exit Sub
        If Workbooks.Count > 1 Then '判断是否只有一个工作簿打开
            ThisWorkbook.Close '如果不是,关闭当前工作簿
                Else '如果只有一个工作簿
            Unload UserForm1
      Application.Quit '关闭EXCLE
   End If

End Sub


Private Sub CommandButton3_Click()
    Unload Me
ThisWorkbook.Save
'Application.Save
Application.Quit
End Sub[/code]