VBA YesNo Question BeforeSave

**hettbarn** · 08-10-2012, 01:07 PM

Hello,
I am definitely NOT a programmer - but dabble and am having great trouble doing probably something simple.

I want to ask a yes/no question before saving a workbook - "Have you updated the Last Updated date if needed?". If the answer is yes - save as normal; if the answer if no, cancel save.

Any help would be MUCH appreciated!

Thanks!
Lisa

**tigeravatar** · 08-10-2012, 01:23 PM

Lisa,

Welcome to the forum!
This code goes in the ThisWorkbook code module:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
    Dim UserResponse As VbMsgBoxResult
    
    UserResponse = MsgBox(Title:="Last Updated Date", _
                          Buttons:=vbYesNo + vbQuestion, _
                          Prompt:="Have you updated the Last Updated date if needed?")
    
    If UserResponse = vbNo Then Cancel = True
    
End Sub

**hettbarn** · 08-10-2012, 01:40 PM

THANK YOU!!! Worked perfectly!!! I will remember to ask quickly next time instead of being so stubborn and trying to figure it out myself (... 4 hours later!).

Thanks!
Lisa

**tigeravatar** · 08-10-2012, 01:48 PM

You're very welcome

If that takes care of your need, please mark this thread as solved.
New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:
How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save