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

0592-2962798 2963798
2966798 2968798
厦门市厦禾路南洋大厦二楼

最新文章列表

高士达平台设计开发的泰欣订单管理系..

EXCEL一键实现报关单据生成

[EXCEL]高手都是这么写公式的

快速将EXCEL表中的内容缩放至一页进..

建发汽车干部考核系统实现方案

金牌OFFICE老师刘凌峰教你利用VBA调..

热门文章列表

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

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

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

瑞声达模具管理系统顺利升级到WINDO..

【课程】深入挖掘EXCEL函数宝藏

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

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

关键字:EXCEL云平台,EXCEL开发    发布时间:2015-03-18 18:09:24    作者:Excel培训管理员

某学员来邮件提问到,如何设置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云平台   EXCEL开发   

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

闽公网安备 35020302001653号