Question

VBA，编写了一个不能保存excel的代码，结果excel不能保存了不假，连代码也保存不了了，悲剧。。

如何可以保存VBA代码而不保存excel改动。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then MsgBox "本工作簿不能保存，只能另存为！"： Cancel = True
End Sub

Answer 1

本过程在参数SaveAsUI 如果为true，显示“另存为”对话框。Cancel，为True，则过程完成时不会保存工作簿

你添加的代码，却另指定为false时显示“另存为”对话框，当然无法原文件保存。
而且，Cancel又指定为True，当然永远无法保存。

Answer 2

用代码保存，新建一个模块，内容如下，要保存时就运行以下代码

Public isForSave As Boolean
Private Sub SaveBook()
isForSave = True
ThisWorkbook.Save
isForSave = False
End Sub

ThisWorkbook代码改为：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI And Not isForSave Then
MsgBox "本工作簿不能保存，只能另存为！"
Cancel = True
End If
End Sub

Answer 3

我编写时也出现这问题，只能另存为其他名称，退出后再从文件夹里改回原来的文件名

Answer 4

debug cancel，TRUE改成FALSE