VSTOでエクセルワークシートのクローズをキャッチしたい

Question

Windows10、VisualStudio2019、VB.NET、.NetFramework4.7.2の環境でエクセルアドインをVSTOで作成しています。

エクセルにあるワークシートを閉じた時にある処理を行う為に以下のようなコードを記述しました。

  Sub add_handlers_to_worksheet(Worksheet As Excel.Worksheet)
        AddHandler Worksheet.BeforeDelete, New Excel.DocEvents_BeforeDeleteEventHandler(AddressOf Delete_worksheet)
　End Sub
  Sub Delete_worksheet(worksheet As Excel.Worksheets)
       '(ワークシートクローズ時に行いたい処理１)      
  End Sub

このように記述するとExcel.DocEvents_BeforeDeleteEventHandler(AddressOf Delete_worksheet)の部分でデリゲートとシグネチャに互換性が無いとエラーが出てしまいます。

たしかにDocEvents_BeforeDeleteEventHandler Delegateを見るといかなる引数も取っていない様に見受けられるのでエラーは仕方ないと思うのですがワークシートがクローズした場合にある特定の処理をしたい場合にはどのような方法があるのでしょうか？

ご存知の方おられましたらよろしくお願いします。

---

解答を元にテストコードを作成

Imports Microsoft.Office.Interop.Excel

Public Class ThisAddIn
    Private Sub ThisAddIn_Startup() Handles Me.Startup
        AddHandler Globals.ThisAddIn.Application.WorkbookActivate, New Excel.AppEvents_WorkbookActivateEventHandler(AddressOf add_handlers_to_book)
    End Sub

    Private Sub add_handlers_to_book(WB As Workbook)
        AddHandler WB.SheetBeforeDelete, New Excel.WorkbookEvents_SheetBeforeDeleteEventHandler(AddressOf Workbook_SheetBeforeDelete)
    End Sub
    Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

        MsgBox(Sh.name)

    End Sub
End Class

VSTOアドインのプロジェクトを作成、以下のコードをThisAddin.vbに記述、実行の上エクセルシートの削除を行った結果メッセージボックス内に削除したワークシート名が表示されました。

Comments

[kenshirou]

「ワークシートがクローズ」とありますが、「ワークシートを削除」という意味でしょうか？
また、ワークシートのBeforeDeleteイベントハンドラの位置から、BeforeDeleteイベント発生時に処理したいオブジェクトへの参照は可能でしょうか。
ちなみに、ワークシート削除時、どのような処理を行いたいのでしょうか？

[Peggie]

質問ありがとうございます。ワークシートのクローズは削除と言う認識で間違いありません。またBeforeDeleteイベントハンドラからBeforeDeleteイベント発生時に処理したいオブジェクトへの参照も問題なく可能です。ワークシート削除時の処理はモジュールの中にあるLISTコレクションから要素を削除します。よろしくお願いします。

Answer 1

VBAだとWorksheetクラス内部に直接処理を記述出来るため、Worksheet_BeforeDeleteイベントの発生源は自明である、ということで引数がありません。
(VBAでイベントを購読する際も、クラスのインスタンスフィールドにWorksheetの参照を保持する必要があるため、発生源を特定できます)

対策として Workbook のSheetBeforeDeleteイベントを使用してはどうでしょうか？
WorkbookEvents_Event.SheetBeforeDelete Event (Microsoft.Office.Interop.Excel) | Microsoft Docs

こちらはWorkbookから、配下のシートの削除を検知するイベントであるため、削除されたシート(シートには種類があるのでObject型ですが)を引数として取得できます。

Answer 2

やっぱり、色々と調べてみても、BeforeDeleteのデリゲートは引数がないようで、Sub Delete_worksheet()のように引数無しで使うしかないようです。
ただし、これではどのWorksheetが削除されるのか分からないので、もし削除されるWorksheetを特定する場合には何らかの工夫が必要かも知れません。
（そう考えると、MSの人は何でこんな不便なイベントを用意したのか、不思議でなりませんが。）

Comments

[Peggie]

解答ありがとうございます。仰る通り削除するworksheetの特定が必要なのでちょっと困っております。ワークシートの一覧を削除前と削除後で比較するなどの方法を検討してみます。

[kenshirou]

imihito様の回答がBAですね。VSTOでも使えます。