前言：今天在写一段VBA代码之后，遇到一个问题，
Excel每次保存时就报一个警告（使用的是office 2007）：
此文档中包含宏、Activex控件、XML扩展包信息
用起来很不爽！
—————————————————————————————————————————-
但是，在2003中打开这个Excel文件，保存时，警告信息是 ”保存时从文件属性中删除个人信息“
可以根据警告的错误提示，很容易解决~
“工具”–》“选项" –》"在安全"选项卡中——》”保存时从文件属性中删除个人信息”选上
—————————————————————————————————————————–
于是根据2003的错误提示信息，找到了2007的设置的位置~
2007:
错误信息：此文档中包含宏、Activex控件、XML扩展包信息解决：excel选项—– —-信任中心—- —-信任中心设置—- —–个人信息选项——
"セキュリティセンタ"—-"セキュリティセンタの設定"—-"プライバシーオプション"—-
在这里选上 “文档特定设置”下的“保存时从文件属性中删除个人信息”
——————————————-
以下是这次写的VBA代码，
通过改变一个单元格的内容，出发一个事件，根据改变的内容，进行相应的处理。
具体内容是，有一个单元个，里面的内容可以选择，分别是”1 选择；2填空；3读程序；4写代码“
这里，实现的是，选择部分的列
（注：也就是选择题时，会有四个选项，所占的4列，填空题时，不需要这4列）
A
B
C
D
当题型"1选择"被选中时，显示，没有被选中时，隐藏
这里面需要学习的是对这种事件接收的处理的写法。
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$E$1" Then If Range("E1").Value = "1 選択" Then Rows("4:7").Select Range("B4").Activate Selection.EntireRow.Hidden = False End If If Range("E1").Value <> "1 選択" Then Rows("4:7").Select Range("B4").Activate Selection.EntireRow.Hidden = True End If
End If Application.EnableEvents = TrueEnd Sub
哪里会顾得上这些。等到时间将矛盾一层层降解为流言是非误解过结
