（1）编写程序，当选中A1单元格时，提示A1单元格的内容。
（2）编写程序，当选中的单元格不是A列的单元格时，自动选中同行A列的单元格。
参考答案
（1）
（2）
Worksheet_Activate事件：自动提示工作表名
Worksheet_Activate事件告诉Excel，当激活工作表时自动运行程序。
在Sheetl工作表模块里写入程序，重新激活工作表，程序就自动运行了，如图5-9所示。
图5-9 激活工作表时自动运行程序
Worksheet_Deactivate事件：禁止选中其他工作表
Worksheet_Deactivate事件告诉Excel，当工作表由活动工作表变为不活动工作表时自动运行过程。
在Sheetl工作表模块中写入下面的程序：
输入程序后，当激活其他工作表时，Excel会进行提示，并自动重新激活Sheetl工作表，如图5-10所示。
图5-10 禁止激活其他工作表
5.2.3 Worksheet事件列表
Worksheet对象一共有9个事件可供使用，如表5-1所示。
表5-1 Worksheet对象的事件列表
事件名称 | 事件说明 | Activate激活工作表时发生BeforeDoubleClick双击工作表之后，默认的双击操作之前发生 BeforeRightClick右击工作表之后，默认的右击操作之前发生 Calculate重新计算工作表之后发生 Change工作表中的单元格发生更改时发生 Deactivate工作表由活动工作表变为不活动工作表时发生 FollowHyperlink单击工作表中的任意超链接时发生 PivotTableUpdate在工作表中更新数据透视表之后发生 SelectionChange工作表中所选内容发生更改时发生