求EXCEL关闭后不提示保存对话框VBA代码

蜗牛小步 · 发表于 2017-6-2 00:52

大神：
个人不会VBA，但现在需要一个EXCEL关闭后不提示保存对话框VBA代码，提高工作效率；
烦请大神帮忙把VBA代码做到附件的工作表中。
非常感谢！

朱荣兴 · 发表于 2017-6-2 09:16

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2017-6-2 09:28

提示: 作者被禁止或删除内容自动屏蔽

蜗牛小步 · 发表于 2017-6-2 14:59

这个代码是自动保存不提示对话框，可不可以改成不保存不提示对话框呢，谢谢

蜗牛小步 · 发表于 2017-6-2 15:03

朱荣兴发表于 2017-6-2 09:28
改进一下
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each wn In Windows

这个代码是自动保存不提示对话框，可不可以改成不保存不提示对话框呢，谢谢

朱荣兴 · 发表于 2017-6-2 15:51

提示: 作者被禁止或删除内容自动屏蔽

蜗牛小步 · 发表于 2017-6-2 18:12

朱荣兴发表于 2017-6-2 15:51
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each wn In Windows
p = p + 1

大神：
代码不能执行，提示：错误的参数号或无效的属性赋值，(.Quit处自动填充为蓝色)

gdc123 · 发表于 2020-4-29 11:03

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.ThisWorkbook.Close
End Sub

gdc123 · 发表于 2020-4-29 11:06

上面的能实现：EXCEL关闭后不提示保存对话框VBA代码，可能在WORD中能实现代码是什么呢？请高手解决！

jiangjiang211 · 发表于 2020-9-13 02:04

gdc123 发表于 2020-4-29 11:06
上面的能实现：EXCEL关闭后不提示保存对话框VBA代码，可能在WORD中能实现代码是什么呢？请高手解决！

Private Sub Document_Close()
Application.DisplayAlerts = wdAlertsNone
'MsgBox "不要保持"
ThisDocument.Saved = True
Application.DisplayAlerts = wdAlertsAll
End Sub

		自动登录	找回密码
密码			免费注册

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-6-2 09:16 \| 显示全部楼层 [广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-6-2 09:28 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-6-2 15:51 \| 显示全部楼层 [广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

求EXCEL关闭后不提示保存对话框VBA代码

浏览过的版块