加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

excelvba怎样让工作簿关闭时不弹出保存对话框

(2019-01-17 19:40:32)
标签:

vb

excel

分类: 程序设计_VB

excel vba怎样让工作簿关闭时不弹出保存对话框?

我在一个工作簿里程序控制在一些文件夹里生成一个叫“a.xlsm”的工作簿,然后对这个工作簿里sheet1中一些格子的内容进行了修改,这时程序运行后发现,每新建一次工作簿,修改数据后,都会提示你是否保存数据,我不想要这个提示,于是就在a.xlsm的thisworkbook里写了
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Me.Close savechanges:=True 
Application.DisplayAlerts = True
End Sub
,并且让复制的每一个工作簿
ActiveWorkbook.SaveAs “a.xlsm”,FileFormat:=xlOpenXMLWorkbookMacroEnabled 
意思是启用宏,这样做了之后,还是在提示让我问我是否保存,请问问题出在哪儿了呢?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close savechanges:=False
End Sub
亲 只需要在workbook 的BeforeClose 事件里面写上我上面这句:
ThisWorkbook.Close savechanges:=False
就行哦但是你所做的更更都不会保存哦,如果你想又保存且还不提示的话你要在之前就写一下保存的代码就象这样
thisworkbook.save
ThisWorkbook.Close savechanges:=False
这样关闭的时候就不会提示了的

 

 

https://zhidao.baidu.com/question/808113433286255092.html

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有