文档介绍：Excel中各种VBA写法 - 彷徨......豁然开朗 - 博客园
Excel中各种VBA写法
先贴一段网上找的excel的各种事件
工作簿对象事件一览表
当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据***表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件说明
Activate激活工作薄时
AddinInstall当工作簿作为加载宏安装时
AddinUninstall工作簿作为加载宏卸载时
BeforeClose关闭工作薄前
BeforePrint打印工作薄(或其中任何内容)之前
BeforeSave保存工作薄前
Deactivate工作簿从活动状态转为非活动状态时
NewSheet在工作簿中新建工作表时
Open打开工作簿时
PivotTableCloseConnection在数据***表关闭与其数据源的连接之后
PivotTableOpenConnection在数据***表打开与其数据源的连接之后
SheetActivate激活任何一张表时
SheetBeforeDoubleClick双击任何工作表时
SheetBeforeRightClick鼠标右键单击任一工作表时
SheetCalculate工作表重新计算时
SheetChange更改工作表中的单元格时
SheetDeactivate任一工作表由活动状态转为非活动状态时
SheetFollowHyperlink单击 Microsoft Excel 中的任意超链接时
SheetPivotTableUpdate数据***表的工作表更新之后
SheetSelectionChange工作簿中的数据***表更新之后
WindowActivate工作簿的窗口激活时
WindowDeactivate工作簿的窗口变为非活动状态时
WindowResize工作簿窗口调整大小时工作表事件一览表
工作表上的事件在默认情况下是可用的。若要查看工作表的事件过程，请用鼠标右键单击工作表标签，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。
事件说明
Activate 激活工作表时
Deactivate工作表从活动状态转为非活动状态时
BeforeDoubleClick 双击工作表前
BeforeRightClick 右键单击工作表时
Calculate 对工作表进行重新计算之后
Change 更改工作表中的单元格，或外部链接引起单元格时
FollowHyperlink 单击工作表上的任意超链接时
PivotTableUpdate 在工作簿中的数据***表更新之后
SelectionChange工作表上的选定区域发生改变时再贴一堆代码
例为设置密码窗口 (1)
If ("请输入密码：") = 1234 Then
[A1] = 1 '密码正确时执行
Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码
End If 本示例为设置密码窗口 (1)
X = MsgBox("是否真的要结帐？", vbYesNo)
If X = vbYes Then
Close 本示例为设置工作表密码
Password:=641112 ' 保护工作表并设置密码
Password:=641112 '撤消工作表保护并取消密码 '本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容 。
For Each w In Workbooks
If Then
SaveChanges:=True
End If
Next w '每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。
= xlMaximized '本示例显示活动工作表的名称。
MsgBox "The name of the active sheet