Excel禁用保存和另存

在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