EXCEL 禁止保存（关闭也不提示）

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

把上面代码放入 ThisWorkBook 里

注：放入代码前请先“禁止运行宏”，否则代码不能被保存。