No.011

右クリック、印刷、上書き保存などブックに規制をかける《イベントプロシージャ Cancel=True》

2003/2007/2010/2013

VBAのイベントプロシージャは、イベント、これは何かしらのタイミングによって自動的に動作させるVBAとなります。
イベントプロシージャを記述していく場所は、標準モジュールではなく、ブックやシートのモジュールを使用します。
VBEを開いて左上のプロジェクトエクスプローラーには、Excelに存在する各シートと ThisWorkbook というモジュールがあり（下図左赤枠）、ダブルクリックすると、シートやブックに特定したイベントプロシージャを記述できるモジュールが表示されます。

今回はおもに ThisWorkbook、ブックのイベントプロシージャを使用して、印刷や右クリックなど、動作を規制する簡単なマクロを楽しく作ってみましょう。

ThisWorkbook のモジュールを表示して、左上の初期は「(General)」と表示されている［オブジェクト］ボックスの▼をクリックして「Workbook」を指定します。
続いて、右上の［プロシージャボックス］の▼より表示される一覧は、数多くのブックにかかわるイベントです。

一覧の中で「SheetBeforeRightClick」を選択し、挿入してみます。

すると自動的に、「Private Sub Workbook_SheetBeforeRightClick～」の記述が入りました。
最初に挿入されていた「Workbook_Open」のプロシージャは、不要なので削除しましょう。

プロシージャ名となる1行目を見ていくと、() 内に引数があらかじめ設定されており、「Cancel As Boolean」に注目します。
「As Boolean」はブール型、つまり「True/False」で、引数Cancelを設定することができるということです。

挿入した「SheetBeforeRightClick」のイベントプロシージャ、これは右クリックする直前でイベントが発生します。
記述を書く前に動作の確認、現在Excelのすべてのシートにおいて、右クリックするとショートカットメニューが表示されます。これはOKですね。

では、次のように記述してみます。

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
　　Cancel = True
　　MsgBox "右クリック無効です。"
End Sub

ではこれで、各シートで右クリックしてみますと、ショートカットメニューは表示されず、メッセージが表示されます。
「Cancel = True」と指定すると、イベントの右クリックはその直前にキャンセルされるため、機能しなくなるのです。

もし、特定のシートだけ右クリックをさせたくないのであれば、各シートのイベントプロシージャにある「BeforeRightClick」（似ているが先ほどと違う）を使用し、同様に設定します。

イベントプロシージャの「Cancel = True」は楽しく使えて役に立つわけですが、使えるケースは、引数Cancel が設定されていることです。
Excel2013では、引数Cancel がある主なイベントは次のとおり、「Cancel = True」を使用すると、それぞれ次のような規制をかけることができます。