专业电脑培训机构，为北京、上海、广州、深圳、长沙、武汉、福州、厦门等城市提供EXCEL培训、PPT培训、WORD培训、ACCESS培训、PROJECT培训、MCSE培训、MCITP培训、OFFICE培训等高级培训及相关技术服务。

0592-2967000 18905920174
 福建省厦门市湖里区园山南路866号园山大厦3楼

最新文章列表

会用这种方法合并单元格的都涨工资了..

高士达 云平台 “三板斧”提升生产分..

日报表这样做，快速填写，自动汇总，不..

高士达财务收支预测工具

如何解决EXCEL运行速度慢的问题

不允许EXCEL出现系统的提示对话框

热门文章列表

金牌EXCEL老师刘凌峰教你如何在文本..

利用EXCEL　VBA向WORD生成表格和图表..

EXCEL一键实现报关单据生成

【高士达下载】高士达工具箱

厦门高士达EXCEL数据管理平台

利用VLOOKUP提取多个条件的同一结果..

首页 > Excel培训 > EXCEL开发

EXCEL开发

不允许EXCEL出现系统的提示对话框

关键字：    发布时间：2022/8/20    作者：admin
某学员来邮件提问到，如何设置EXCEL，在用户关闭文件时，不出现系统保存文件的提示对话框，而是出现自己定义的对话框？
整理完成的代码如下：
Private SubWorkbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
If ActiveWorkbook.Saved = False Then
AA = MsgBox("是否保存" & ActiveWorkbook.Name &"?", vbYesNo, "这是自定义的对话框")
If AA = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close True
Application.Quit
Else
Application.EnableEvents = False
ActiveWorkbook.Close False
End If
End If
End Sub
后记：EXCEL功能本身已经很强大了，如果加上VBA进行自定义开发或使用高士达EXCEL云平台进行二次开发，将会是如虎添翼！
本文关键词：

厦门高士达是一家微软认证培训机构，是专业的EXCEL培训、PPT培训、ACCESS培训、OFFICE培训、微软培训、微软考试及其他IT服务供应商 ©2014 厦门高士达微软高级技术教育中心 闽ICP备16016261号 技术支持：厦门高士达

公安备案号：35020302001734