VBA以外のExcelで特定のブックをアクティブにする方法

Question

BeforeSaveイベントを使用してコードを実行するブック（ "CodeBook.xlsm"）があります。ユーザーが複数のワークブックを開いていてファイル/終了でExcelを終了することを選択すると、ワークブックを保存するかどうかを確認するメッセージが表示され、はいの場合はBeforeSaveコードが実行されます。問題は、その時点でActiveWorkbookは、ユーザーがExcelの終了を選択したときのワークブックでない限り、CodeBook.xlsmではない可能性があります。ユーザーが別のブックからExcelを終了すると、BeforeSaveコードが実行されていますが、アクティブワークブックはユーザーのランダムなファイルなので、BeforeSaveコードの特定のワークシートおよび範囲への参照はすべて機能しません。

私はCodeBookとworkbook（）の名前を保持するために静的宣言を使用して様々な方法を試しましたが、アプリケーションを終了するときにactivateすることでBeforeSaveを実行すると、名前をコードにハードコードするのには不十分です。

提案がありますか？実行中のコードがないときに変数名を保持する方法、ユーザーが終了するときに変数を保存する方法、またはExcelがapplication.quitではなくユーザーコマンドから終了するときに特定のブックをアクティブにする方法。 using excel 2010.

Answer 1

特定のワークブックへの参照を含めることでこれを克服しました。

たとえば、このコードでは、文書を閉じる前に、A1のセルに日付/時刻スタンプを保存します。Sheet1。 ThisWorkbookを追加することにより、コードが存在する特定のブックで動作します。ThisWorkbookを追加しないと、ユーザーが終了するとアクティブブックで機能します。

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = Now() 
End Sub 

---

プレイスThisWorkbookモジュールでこのコード。