Application.ThisWorkbook で開いているインスタンスを識別する。 開く時にそのIDをKEYにしてfindのIDを辞書に格納する。 閉じる時にそのIDでアウトルックを検索して、終了時刻を記録 Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook) If Wb Is Applic…