写了一段VBA代码后， Excel每次保存时都弹出警告：”此文档中包含宏、Activex控件、XML扩展包信息“（office 2007）

前言：今天在写一段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 = True
End Sub