Question

EXCEL窗体中用一个按钮来关闭窗体和当前打开的文档。

如题：EXCEL窗体中用一个按钮来关闭窗体和当前打开的文档。
其他有打开的无关的excel文档则不受影响。
请问按钮的代码该怎么写。谢谢
大侠们，我说的是在用户窗体上放置的按钮（不是在文档里放按钮），点这个按钮关闭用户窗体，并关闭含有这个窗体的excel文档，相当于退出按钮。窗体右上角的X只能关闭窗体不能关文档。两位大侠给的代码表示感谢，不过我测试了，都显示内存溢出，不起作用。请大侠们再赐教，非常感谢。

Answer 1

建议如下代码

Application.DisplayAlerts = False '关闭系统提示，系统不会问你保不保存了
unload me
ThisWorkbook.Close
Application.DisplayAlerts = True

追问

大侠们，我说的是在用户窗体上放置的按钮（不是在文档里放按钮），点这个按钮关闭用户窗体，并关闭含有这个窗体的excel文档，相当于退出按钮。窗体右上角的X只能关闭窗体不能关文档。两位大侠给的代码表示感谢，不过我测试了，都显示内存溢出，不起作用。请大侠们再赐教，非常感谢。

追答

不会吧，这个代码我自己用都没问题的，你把附件发给我 我帮你看看

Answer 2

ActiveWorkbook.Close

追问

大侠们，我说的是在用户窗体上放置的按钮（不是在文档里放按钮），点这个按钮关闭用户窗体，并关闭含有这个窗体的excel文档，相当于退出按钮。窗体右上角的X只能关闭窗体不能关文档。两位大侠给的代码表示感谢，不过我测试了，都显示内存溢出，不起作用。请大侠们再赐教，非常感谢。

追答

Sub 关闭()
Dim i As Long, j As Long, n As Long, m As Long
m = MsgBox("退出保存,请选择 " & vbCrLf & vbCrLf & "退出不保存,请选择 ", vbYesNoCancel, " 关闭")
If m = vbCancel Then Exit Sub
If m = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = false
ActiveWorkbook.Close
End If
End Sub

追问

提示：对象变量或with块变量未设置，错误行为：ActiveWorkbook.Close
请问什么原因呢，麻烦你了，再次致谢！