禁止保存
在workbook事件中
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved =
True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Cancel = True
End Sub
'如果修改了程序要保持：
'在BeforeSave中的End
Sub设置断点，对BeforeSave中的Cancel添加监视，
'然后在保存时在监视窗口中直接修改Cancel的值为False