在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
网友评论