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

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

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 <> "" ...

打开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...

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = TrueEnd Sub

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

在 ThisWordbook 的 Open 事件中（在VBA编辑窗口中）添加代码：Application.DisplayAlerts = True 保存后再打开就屏蔽了提示对话框。不过要允许运行宏。也可以在立即窗口（在VBA编辑窗口中）输入：Application.DisplayAlerts = True 后按回车，这种方法关闭工作簿后再打开就失效了。

1、首先打开需要编辑的Excel表格，右键单击工作表选择打开“查看代码”。2、然后在弹出来的窗口中点击打开“通用”。选择Terminate 事件。3、然后在弹出来的窗口中点击输入下方的代码，Private Sub UserForm_Terminate()ThisWorkbook.Saved = True Application.Quit End Sub 4、然后运行程序，这样就可以设置...

如果使用工作簿的 SaveAs 方法覆盖现有文件，“覆盖”警告默认为“No”，当 DisplayAlerts 属性值设置为 True 时，Excel 选择“Yes”。示例 本示例关闭工作簿 Book1.xls，但不提示用户保存所作更改。Book1.xls 中的所有更改都不会保存。Application.DisplayAlerts = False Workbooks("BOOK1.XLS")....

Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim arr, j arr = Me.Sheets(1).UsedRange.Resize(2)For j = 1 To UBound(arr, 2)If arr(1, j) <> "" And arr(2, j) = "" Then Application.Goto Me.Sheets(1).Cells(2, j)MsgBox "关闭前请输入【" & arr(1, j) & "...

首先按“Alt+F11”组合键，Excel2007打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.DisplayAlerts = False ThisWorkbook.Close Application.DisplayAlerts = True ‘恢复显示Excel警告信息对话框 End Sub 当文件修改后，如果关闭此文件...