求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 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-6-2 15:51 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报