美文网首页
Excel禁用保存和另存

Excel禁用保存和另存

作者: starfly | 来源:发表于2018-09-17 17:13 被阅读0次

在ThisWorkBook下添加下列代码,可禁用excel的保存和另存为功能

在关闭前,Saved显示为True,就不会显示是否保存对话框,也不会再保存
Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub

在保存前,Cancel代表取消保存,所以,所做的保存都是无效的.
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
但因为语句的效果是使所做的保存无效,一旦上述代码生效了,这个代码一直保存不到VB里面

解决方法:
随便写一个宏,执行这个宏以停止时间功能,就可存档了
Sub test()
Application.EnableEvents = False
End Sub

相关文章

网友评论

      本文标题:Excel禁用保存和另存

      本文链接:https://www.haomeiwen.com/subject/viernftx.html