Message Box before save

[greatcookies]

I have an excel spreadsheet that I need a message box to appear upon saving. The message box is simply a remainder and they could click ok to proceed with save. What code is needed to make this happen.

Thanks!

 

[bandit_1981]

This will work but i would think you might want to allow them to cancel the save process but if you just want to show a box before it saves this works.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "You are about to save this file.", vbInformation
End Sub

 

[bandit_1981]

if you hit ALT + F11 then double click on thisworkbook and paste this code.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim str As String
    
    str = MsgBox("Are you sure you want to save?", vbYesNo)
    
    If str = vbNo Then
        Cancel = True
    End If

End Sub

This will prompt them and if the hit no it will stop the save.
Good luck