'Excel2010以降の場合、AfterSaveイベントが有るため、これで行えます
'「標準モジュール」ではなく「ThisWorkbook」に記述します。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "保存前です"
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
MsgBox "保存後です"
End Sub
'Excel2007までの場合もサポートするにはちょっとした裏技ですが以下の様にすれば出来ます。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "保存前です"
'保存前にOntimeで実行すると、実際には保存後に実行される
Application.OnTime Now(), "ThisWorkbook.After_Hozon"
End Sub
Private Sub After_Hozon()
MsgBox "保存後です"
End Sub