利用VBA，使得Excel看似保存，实则没有保存

主要参考资料VBA_for_Office_简单教程.pdf（网上搜的）
VBA帮助文档

本想着自己学习过VC，也写个简单的VB例子，VBA应该是一点就通的，结果用了整整一天的时间，才搞定一个VBA的例子。主要是对语法和对象都不熟悉。
新建一个Excel文档，选择：工具--宏--Visual Basic编辑器 打开VBA编辑器，环境和VB6.0相似
在左边可以看到Sheet1和ThisWorkbook分别代表一个Excel表格和一个Excel文档
1.小测试一下。插入”--“过程”插入一个MySub（注意过程不属于特定的Sheet或者ThisWorkbook，它是用来调用的，对比一下函数）
Public Sub MySub()
MsgBox "显示测试"
End Sub
直接在VB编辑器中运行 可以看到效果。但如果想在Excel中看到，就要Call Sub了
2.在Excel文档中，添加一个命令栏（工具栏、菜单栏和快捷（用鼠标右键单击）菜单合并为一种功能，这就是用户界面中的“工具栏”和 VBA 中的“命令栏”。命令栏为下列三种类型之一：菜单栏、工具栏或弹出菜单）。
选中ThisWorkbook，右击，选择“查看代码”。在编辑区上方选择WorkBook和Open。这样就在Excel打开时产生了一个事件处理
Dim customBar As CommandBar
Dim cntEdit As CommandBarControl
Set customBar = Application.CommandBars.Add(Name:="Custom1", Position:=msoBarBottom)
customBar.Visible = True
cntEdit = customBar.Controls.Add(msoControlEdit)
其中Application指当前文档，CommandBars是当前文档的“命令栏”集合,Add即在当前集合中在添加一个命令栏
customBar.Controls.Add在创建的命令栏中新建一个Edit控件。
在Excel文档左下方看到效果了,多了一个东西
 
但执行一次成功，再次执行错误提示“运行时错误5，无效的过程调用或参数”。找个几个小时啊，才知道原因。是因为第一个执行后，已经添加过一个Custom1命令栏了，再次执行时，当然不能创建同一个Name的命令栏了。
于是修改代码为
Dim Flag As Boolean
Dim cb As CommandBar
Dim customBar As CommandBar
Dim cntEdit As CommandBarControl

Flag = False

For Each cb In Application.CommandBars
    If cb.Name = "Custom1" Then
    Flag = True
    Exit For
    End If
Next

If Flag Then
Else
Set customBar = Application.CommandBars.Add(Name:="Custom1", Position:=msoBarBottom)
customBar.Visible = True
cntEdit = customBar.Controls.Add(msoControlEdit)

With cntEdit
.Tag = "cntEdit"
.Width = 50
End With
End If
这样先检查Custom1是否已经创建过了，如果没有在创建
3：利用2中创建的Edit编辑框，选择BeforeSave事件，
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim str As String
str = Application.CommandBars("Custom1").Controls(1).Text
If str <> "msk" Then
Cancel = True
End If

End Sub
其中Application.CommandBars("Custom1").Controls(1).Text这句话得到编辑框中输入的信息，我刚开始用的是Application.CommandBars("Custom1").Controls(1).Cation，结果没得到输入的信息
Cancel = True时，保存的信息就不会被保存了。
如果在编辑框中写的是msk，则会保存Excel的改变。如果不是，那就不会保存，这样也可以其他保护作用。别人修改你的文档，如果他没在编辑框中写入msk，那就不会保存啦