Question

excel vba怎样让工作簿关闭时不弹出保存对话框？

我在一个工作簿里程序控制在一些文件夹里生成一个叫“a.xlsm”的工作簿，然后对这个工作簿里sheet1中一些格子的内容进行了修改，这时程序运行后发现，每新建一次工作簿，修改数据后，都会提示你是否保存数据，我不想要这个提示，于是就在a.xlsm的thisworkbook里写了
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Me.Close savechanges:=True
Application.DisplayAlerts = True
End Sub
，并且让复制的每一个工作簿
ActiveWorkbook.SaveAs “a.xlsm”,FileFormat:=xlOpenXMLWorkbookMacroEnabled
意思是启用宏，这样做了之后，还是在提示让我问我是否保存，请问问题出在哪儿了呢？

Answer 1

1、打开Excel 2003或2007或2010或2013完整版版本。

2、进入“开发工具”一栏。

3、点选“Visual Basic”选项卡中的“编辑器”。

4、双击“ThisWorkBook”或“工作表1”。

5、在空白区域填写代码：Sub 保存所有已打开的工作簿()，Dim i As Workbook，For Each i In Workbooks，    If i.Path <> "" Then，i.Save， End If，Next ，End Sub。

6、点击“运行”。

7、点击“运行子过程/UserForm”就可以了。

Answer 2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close savechanges:=False
End Sub
亲 只需要在workbook 的BeforeClose 事件里面写上我上面这句ThisWorkbook.Close savechanges:=False就行哦 但是你所做的更更都不会保存哦,如果你想又保存且还不提示的话你要在之前就写一下保存的代码就象这样
thisworkbook.save
ThisWorkbook.Close savechanges:=False
这样关闭的时候就不会提示了的

追问

您好，请问一个问题

追答

亲你需要把更多的代码给我看下 然后才好下结论,让我知道你要做什么

追问

好了，我已经解决了

问题不是在这个上面

err不为空这句话是错的

我有一个问题还想问下您

然后双击下拉列表选项就可以选中记录，谢谢了

Answer 3

收藏一下，谢谢