Use 4th button in msgBox for ignore with vbYesNoCancel

turbonate · Oct 16th 2012

Hey gurus,

I've read in a few places that it is possible to use up to FOUR buttons in the msgbox API. I am trying to figure out how to use that fourth button but I don't see how to do the sum value for the "buttons" argument in the function call. I'm trying to use the vbYesNoCancel with an additional vbIgnore button option.

here's my code and what I'm trying to do:

Code

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Dim intAction As Integer 'User response to prompt when leaving
    Dim sh As Worksheet 'VendorCenter Worksheet
    
    'set objects
    Set sh = ThisWorkbook.Worksheets("VendorCenter")
    
    'why you leave?
    intAction = MsgBox("You are edding Vendor Center settings which should not be left open." & vbNewLine & _
        "Would you like to save and close?" & vbNewLine & vbNewLine & _
        "Please click Yes to save and close," & vbNewLine & _
        "Click No to leave without saving" & vbNewLine & _
        "Click ignore to leave Vendor Center open (not recommended)" & vbNewLine & _
        "Or click Cancel to go back to Vendor Center", vbYesNoCancel, "Leaving Vendor Center")
    Select Case intAction
        Case vbYes
            Me.IsAddin = True
            Me.Save
        Case vbNo
            Me.IsAddin = True
        Case vbIgnore
            'null
        Case vbCancel
            sh.activate
        Case Else
            MsgBox "Invalid Choice, going back to Vendor Center"
            sh.activate
    End Select 'intAction
End Sub 'Workbook_WindowDeactivate

Display More

I can make a user form if needed, but I want to know if this fictitious fourth button is usable before I go through the trouble.

cheers!
Nate

**cytop** · Oct 16th 2012

Re: Use 4th button in msgBox for ignore with vbYesNoCancel

AFAIK the 4th button is a Help button... and the standard MsgBox can only use the pre-defined button combinations.

It is possible to use the API to change the button captions, but this is way beyond the scope of this board and is generally not worth the effort for general applications.

The simplest way to generate a 'custom' msgbox is to use a userform with code to show/hide, and set the caption of, as many buttons as you want.

Kyle123 · Oct 16th 2012

Re: Use 4th button in msgBox for ignore with vbYesNoCancel

You can't have four buttons on a messagebox, why not just create a userform?

turbonate · Oct 16th 2012

Re: Use 4th button in msgBox for ignore with vbYesNoCancel

Hey guys,

I kind of figured that the UserForm was going to be the answer. I have seen some example code of updating the API and I'm really not interested in doing that at all.

Thanks for the confirmation!
Nate

**mikerickson** · Oct 16th 2012

Re: Use 4th button in msgBox for ignore with vbYesNoCancel

Which leads to the question, why is there a VB constant vbDefaultButton4?

Use 4th button in msgBox for ignore with vbYesNoCancel

Participate now!

Share