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
意思是启用宏,这样做了之后,还是在提示让我问我是否保存,请问问题出在哪儿了呢?

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”就可以了。

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-04-21
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不为空这句话是错的

我有一个问题还想问下您

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

本回答被提问者采纳
第2个回答  2019-07-24
收藏一下,谢谢

如何在关闭excel工作簿时不出现保存工作簿的提示
方法3:屏蔽掉警告消息框 将DisplayAlerts属性设置为False,屏蔽掉Excel弹出的警告消息。代码如下:Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.DisplayAlerts = False ThisWorkbook.Close End Sub 注意,这种情形下,你在上次保存工作簿之后,对该工作簿做的任何修改都不会保存。方法4:设...

excel vba怎样让工作簿关闭时不弹出保存对话框?
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 <> "" ...

VBA关闭工作簿和退出Excel代码
要用VBA来关闭工作簿,用Workbook.Close 方法即可,而要退出Excel,则用Application.Quit 方法。下面是一些代码示例:关闭活动工作簿,如果工作簿有更改,提示是否保存:Sub CloseWorkbook()ActiveWorkbook.Close End Sub 如果要避免出现提示,可添加“SaveChanges”参数,如直接保存并关闭工作簿:Sub ClostAndSa...

excel里能用VBA禁用关闭excel退出时跳出的“取消”按钮吗?
打开EXCEL,按Alt+F11,点开Thisworkbook,复制以下代码到程序窗口:Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.DisplayAlerts = True If Not ThisWorkbook.Saved Then Answer = MsgBox("是否保存?", vbYesNo + vbDefaultButton2, "你要的效果")If Answer = vbYes Then ThisWorkboo...

VBA 在excel关闭用户页面和窗口总是弹出很多另存文件提示,怎样能关闭了...
你运行完带有VBA的工作簿是会这样的,都会提示保存,你用下面两个代码试试。Application.DisplayAlerts = False 放在你代码的开头吧,放在DIM J AS LONG 上面,表示关闭弹窗,在代码的最后面要写个:Application.DisplayAlerts = False。也就是END SUB的上面,表示开启弹窗。这样做每次运行是都会替换...

excel vba怎么实现关闭时是否保存对话框不重复弹出
不保存直接退出?刚才搞了一下,不是很成功,逻辑上有点儿问题。如果你想保存,这时候出现提示,然后不保存退出,这和一开始需要保存产生了循环。如果直接在你的代码中增加ThisWorkbook.Close False,会产生保存后就可能不保存的退出的问题。或者你将Cancel = False,这样就会保存退出,感觉比较安全 ...

excel如何通过vba代码关闭工作薄呢?
步骤 1、首先我们打开一个工作样表作为例子。2、我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Option Explicit Sub setcap()ThisWorkbook.Close False End Sub 3、close方法必须有一个对象,对象为workbooks,在这里我们使用的thisworkbook可以直接使用参数。而workbooks...

Vb保存excel的时候如果文件已经存在,怎么设置不提示对话框默认取消?
在 ThisWordbook 的 Open 事件中(在VBA编辑窗口中)添加代码:Application.DisplayAlerts = True 保存后再打开就屏蔽了提示对话框。不过要允许运行宏。也可以在立即窗口(在VBA编辑窗口中)输入:Application.DisplayAlerts = True 后按回车,这种方法关闭工作簿后再打开就失效了。

VBA 中怎么设置关闭窗体同时关闭EXCEl,代码应该怎么写,谢谢了_百度知 ...
1、首先打开需要编辑的Excel表格,右键单击工作表选择打开“查看代码”。2、然后在弹出来的窗口中点击打开“通用”。选择Terminate 事件。3、然后在弹出来的窗口中点击输入下方的代码,Private Sub UserForm_Terminate()ThisWorkbook.Saved = True Application.Quit End Sub 4、然后运行程序,这样就可以设置...

VBA 怎么调用关闭时弹出的保存提示对话框?
你可以换一个思路,就是在打开工作表的时候对控件状态进行初始化,这样的话关闭的时候就无须再考虑要不要保存控件的状态了,可以一律保存,这样问题是不是就简单得多了呢?补充:你可以在Workbook_Open事件中对控件进行初始化

相似回答