如何用vba代码实现关闭工作薄时未修改内容不提示保存(不受易失函数影响)？

作者：绿色风分类：时间：2022-08-17 浏览：308

楼主 kevinchengcw	Q: 如何用vba代码实现关闭工作薄时未修改内容不提示保存(不受易失函数影响)？ A: 实现代码如下： Thisworkbook中代码： Dim isChanged As Boolean '公共变量用来记录是否修改了工作表中内容 Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭工作薄前响应的事件 If Not isChanged Then ThisWorkbook.Saved = True '如果未发生修改(公共变量值为假),则将工作簿的saved属性修改为真,这样关闭时不会提示保存 End Sub Private Sub Workbook_Open() '打开工作薄时响应的事件 isChanged = False '初始化公共变量值为假 End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '任意工作表中数据发生改变时响应的事件 isChanged = True '有工作表数据发生改变时(含编辑事件),则公共变量值赋值为真 End Sub 详见附件及素材源帖. Book1.rar
2楼 andrewyang	学习了学习了高手呀
3楼水星钓鱼	感谢分享
4楼海洋之星	代码王子，好好学习一下
5楼 wise	学习K哥代码
6楼老糊涂	学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表