分类：电脑/网络-软件
问题：不保存宏用saveas方法后，关闭excel文件提示是否保存，如? 
excel里有个宏，原来用saveas方法连同宏一起保存再退出不会有是否保存的对话框，但在saveas前面用下面代码处理使保存的时候不保存宏以后关闭excel就会提示是保存，实际上saveas方法后就没有对excel文件做出修改了，请问如何将该提示框去掉？取消saveas保存宏的代码：Dim Wb As Workbook    Dim vbCp As IDE.VBComponent    For Each Wb In Application.Workbooks        For Each vbCp In Wb.VBProexcel里有个宏，原来用saveas方法连同宏一起保存再退出不会有是否保存的对话框，但在saveas前面用下面代码处理使保存的时候不保存宏以后关闭excel就会提示是保存，实际上saveas方法后就没有对excel文件做出修改了，请问如何将该提示框去掉？取消saveas保存宏的代码：Dim Wb As Workbook    Dim vbCp As IDE.VBComponent    For Each Wb In Application.Workbooks        For Each vbCp In Wb.VBProject.VBComponents            With vbCp                .CodeModule.DeleteLines 1, .CodeModule.CountOfLines                If .Type = vbext_ct_ClassModule Or .Type = vbext_ct_StdModule Then                    Wb.VBProject.VBComponents.Remove vbCp                End If            End With        NextNext
回答：下面是直接退出excel的代码,你试试.
Sub Macro1() '直接退出Excel
    ActiveWorkbook.Save
    Excel.Application.Quit
End Sub