写了⼀段VBA代码后，Excel每次保存时都弹出警告：”此⽂档
中包含宏、Activex控件。。。
前⾔：今天在写⼀段VBA代码之后，遇到⼀个问题，
Excel每次保存时就报⼀个警告（使⽤的是office 2007）：
此⽂档中包含宏、Activex控件、XML扩展包信息
⽤起来很不爽！
----------------------------------------------------------------------------------------------------------------------------
但是，在2003中打开这个Excel⽂件，保存时，警告信息是 ”保存时从⽂件属性中删除个⼈信息“
可以根据警告的错误提⽰，很容易解决~
“⼯具”--》“选项" --》"在安全"选项卡中——》”保存时从⽂件属性中删除个⼈信息” 选上
2003
2007
-----------------------------------------------------------------------------------------------------------------------------
于是根据2003的错误提⽰信息，到了2007的设置的位置~
2007:
错误信息：此⽂档中包含宏、Activex控件、XML扩展包信息
解决：excel选项-----        ----信任中⼼----        ----信任中⼼设置----                  -----个⼈信息选项------
"セキュリティセンタ"----"セキュリティセンタの設定"----"プライバシーオプション"----
在这⾥选上  “⽂档特定设置”下的“保存时从⽂件属性中删除个⼈信息”
===
-------------------------------------------
以下是这次写的VBA代码，
通过改变⼀个单元格的内容，出发⼀个事件，根据改变的内容，进⾏相应的处理。
具体内容是，有⼀个单元个，⾥⾯的内容可以选择，分别是”1 选择；2填空；3读程序；4写代码“这⾥，实现的是，选择部分的列
（注：也就是选择题时，会有四个选项，所占的4列，填空题时，不需要这4列）
A
B
C
D
activex 控件
当题型"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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。