VBAでは操作をきっかけとして自動的に実行されるプロシージャの事を「イベントプロシージャ」と言います。自動実行のきっかけとなる操作の事を「イベント」と呼び、「イベント」はブックやワークシート、ユーザーフォーム等のオブジェクトに対して発生します。このイベントを利用して「シートが非アクティブになった時に発生するイベントプロシージャの作り方」について紹介します。
構文
イベントプロシージャの記述方法は以下の通りです。
Private Sub Worksheet_Deactivate()
［実行する処理内容］
End Sub
[説明]：
シートが非アクティブになった時に実行されるイベントプロシージャです。
| ［実行する処理内容］ | イベントが実行された時に処理する内容を記述します。 |
[記述例]：
Private Sub Worksheet_Deactivate()
MsgBox "このシートはアクティブでなくなります。"
End Sub
作り方
（1）VBE（VBA記述画面）を開きます。
※画面の開き方はこちらの手順を参考にして下さい。
（2）シートオブジェクトをダブルクリックします。
※今回は例としてSheet1をダブルクリックします。
（3）オブジェクトボックスの▼ボタンをクリックします。
（4）プルダウン一覧の中から「Worksheet」を選択します。
※この時点で「Worksheet_SelectionChange」イベントプロシージャが表示されます。（これは自動的に作成される仕組みとなっている様です。）
（5）プロシージャボックスの▼ボタンをクリックします。
（6）プルダウン一覧の中から「Deactivate」を選択します。
（7）「Worksheet_Deactivate」イベントプロシージャが表示されます。
（8）（7）で作成したイベントプロシージャに実行させる内容を記述します。以下で記述例を紹介しますが、今回はシートが非アクティブになった時にメッセージを表示する方法について紹介します。
[プログラミング例]：
Private Sub Worksheet_Deactivate()
MsgBox "このシートはアクティブでなくなります。"
End Sub
内容は、「シートが非アクティブなった時に”このシートはアクティブでなくなります。”をMsgBoxで表示して下さい。」との意味になります。
[実行例]：
今回の例としては、Sheet1シートには上記で説明したプログラミング例が記述されています。
（実行例①）
Sheet1シートが選択（アクティブ）された状態からSheet2シートが選択（アクティブ）された場合、「このシートはアクティブでなくなります。」が表示されます。（※Sheet1シートが非アクティブになった事で、プロシージャが実行されてメッセージが表示されました。）
（実行例②）
Sheet2シートが選択（アクティブ）された状態からSheet1シートが選択（アクティブ）された場合、メッセージは表示されません。
[サンプル]：
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
シートが非アクティブになった時に発生するイベントプロシージャの作成方法についての説明は以上です。
おわりに
今回はシートが非アクティブになった時に発生するイベントプロシージャの作成方法について説明しました。オブジェクトボックスでオブジェクトを選択すると、そのオブジェクト既定の「Worksheet_SelectionChange」イントプロシージャが自動的に作成されます。不要な場合は削除して下さい。また、類似の内容としてブックが非アクティブになった時に発生するイベントプロシージャもあります。ブックの場合とシートの場合との違いは、ブックは全シートに対してイベントが発生しますが、シートは対象のシートのみにイベントが発生します。状況により使い分けて下さい。