message box on startup

[stewart1]

Hi again to all,

I have this code that upon startup a messagebox opens and says, "do you want to continue?" with a yes or no button.

Private Sub Workbook_Open()
Answer = MsgBox("Do you want to continue ?", _
    vbYesNo, "My Title")
If Answer = vbYes Then
Exit Sub
ElseIf Answer = vbNo Then
ThisWorkbook.Close savechanges:=True
End If
End Sub

Trouble is, I need the workbook to totally shut down if "no" is pressed. at the moment the workbook disappears but excel just sits there blank.

Could someone tell me what the trouble is please?


Thanks,


Stewart.

[Domski]

Assuming they won't have made any changes if they say no then there will be no need to save the document you could use:

Private Sub Workbook_Open()

Dim Answer As VbMsgBoxResult
Answer = MsgBox("Do you want to continue ?", _
    vbYesNo, "My Title")
If Answer = vbNo Then
    Application.Quit
End If

End Sub

What about if they have other workbooks open though?

Dom

[royUK]

Your code is closing the workbook not the application. If you close the application then all open workbooks will be closed. You don't want to save changes.

[stewart1]

Yes!

I am a sad man that puches the air when I get the working result. I just thought you's should know the kind of reactions you get when you give the help!

Ah! I sat there for about two hours trying to make that work on my own!

Thanks Domski for the code and RoyUk for the words of wisdom.

(is there a solved button here?)

[royUK]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

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