WorkbookAfterSave イベント (Excel)Application.WorkbookAfterSave event (Excel)

ブックを保存した後に発生します。Occurs after the workbook is saved.


Office 365 では、Excel で自動保存がサポートされています。これにより、ユーザーの編集を自動的かつ継続的に保存することができます。In Office 365, Excel supports AutoSave, which enables the user's edits to be saved automatically and continuously. 詳細については、「自動保存がアドインとマクロに及ぼす影響」を参照して、自動保存が有効になっているときにWorkbookAfterSaveイベントに応答してコードが実行されるようにします。For more information, see How AutoSave impacts add-ins and macros to ensure that running code in response to the WorkbookAfterSave event functions as intended when AutoSave is enabled.


WorkbookAfterSave(WbSuccess)expression.WorkbookAfterSave (Wb, Success)

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
WbWb 必須Required WorkbookWorkbook 保存するブックです。The workbook being saved.
SuccessSuccess 必須Required BooleanBoolean 保存操作が正常に実行された場合はTrueを返します。それ以外の場合はFalseReturns True if the save operation was successful; otherwise, False.

戻り値Return value



applicationオブジェクトでイベントプロシージャを使用する方法については、「 application オブジェクトでイベントを使用する」を参照してください。For information about how to use event procedures with the Application object, see Using events with the Application object.


次のコード例では、ブックが正常に保存された場合にメッセージ ボックスを表示します。The following code example displays a message box if the workbook was successfully saved. このコードはクラスモジュールに配置する必要があり、そのクラスのインスタンスは正しく初期化されている必要があります。This code must be placed in a class module, and an instance of that class must be correctly initialized.

Private Sub App_WorkbookAfterSave(ByVal Wb As Workbook, _ 
 ByVal Success As Boolean) 
If Success Then 
 MsgBox ("The " & Wb.Name & " workbook was successfully saved.") 
End If 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.