Ex cel 中各种VBA 写法 工作簿对象事件一览表 当工作簿更改、工作簿中的任何工作表更改、加载宏更改或数据透视表更改时，将引发工作簿事件。工作簿上的事件在默认情况下是可用的。若要查看工作簿的事件过程，请用鼠标右键单击处于还原状态或最小化状态的工作簿窗口标题栏，再单击快捷菜单上的“查看代码”。在“过程”下拉列表框内选择事件名称。 事件说明 Activate 激活工作薄时 AddinInstall 当工作簿作为加载宏安装时 AddinUninstall 工作簿作为加载宏卸载时 BeforeClose 关闭工作薄前 BeforePrint 打印工作薄(或其中任何内容)之前 BeforeSave 保存工作薄前 Deactivate 工作簿从活动状态转为非活动状态时 New Sheet 在工作簿中新建工作表时 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 Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else:...
