ブックが保存される前に処理を実行する ： Excel VBA

ブックが保存される直前に処理を実行するイベントは、Workbook_BeforeSaveです。

イベント構文　：　Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveAsUI ：　名前を付けて保存の場合、TRUEが返ります
Cancel ：　TRUEを設定すると保存されません。デフォルトはFALSEです。

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim lrtn As Long
    
    lrtn = MsgBox("保存しますか？", vbOKCancel)
    If lrtn = vbCancel Then
        Cancel = True
    End If
End Sub

■［名前を付けて保存］を実行した場合は、メッセージが表示されないように変更したVBAコード
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim lrtn As Long
    
    If SaveAsUI = False Then
        lrtn = MsgBox("保存しますか？", vbOKCancel)
        If lrtn = vbCancel Then
            Cancel = True
        End If
    End If
End Sub