Microsoft Office

Part VI
Programming Excel with VBA
TABLE 43.1
(continued)
Event
Open
SheetActivate
SheetBeforeDoubleClick
SheetBeforeRightClick
SheetCalculate
SheetChange
SheetDeactivate
SheetFollowHyperlink
SheetSelectionChange
WindowActivate
WindowDeactivate
WindowResize
Action That Triggers the Event
The workbook is opened.
Any sheet in the workbook is activated.
Any worksheet in the workbook is double-clicked. This event occurs before the
default double-click action.
Any worksheet in the workbook is right-clicked. This event occurs before the
default right-click action.
Any worksheet in the workbook is calculated (or recalculated).
Any worksheet in the workbook is changed by the user.
Any sheet in the workbook is deactivated.
Any hyperlink in the workbook is clicked.
The selection on any worksheet in the workbook is changed.
Any window of the workbook is activated.
Any workbook window is deactivated.
Any workbook window is resized.
The remainder of this section presents examples of using workbook-level events. All the example procedures
that follow must be located in the code module for the ThisWorkbook object. If you put them into
any other type of code module, they will not work.
Using the Open event
One of the most common monitored events is a workbook’s Open event. This event is triggered when the
workbook (or add-in) opens and executes the Workbook_Open procedure. A Workbook_Open procedure
is very versatile and is often used for the following tasks:
n
n
n
n
Displaying welcome messages.
Opening other workbooks.
Activating a specific sheet.
Ensuring that certain conditions are met; for example, a workbook may require that a particular
add-in is installed.
Be aware that there is no guarantee that your Workbook_Open procedure will be executed.
For example, the user may choose to disable macros. And if the user holds down the Shift key
while opening a workbook, the workbook’s Workbook_Open procedure will not execute.
CAUTION
The following is a simple example of a Workbook_Open procedure. It uses VBA’s Weekday function to
determine the day of the week. If it’s Friday, a message box appears to remind the user to perform a file
backup. If it’s not Friday, nothing happens.
Private Sub Workbook_Open()
If Weekday(Now) = 6 Then
Msg = “Make sure you do your weekly backup!”
748