disable msgbox close 'X'

[redspanna]

is it possible to disable or remove the msgbox 'x' close button by adapting my code below?

 Else: FinalisePrompt = MsgBox(vbCrLf & _
        "  This report has not yet been finalised and before" & vbCrLf & _
        "  continuing it must be done." & vbCrLf & vbCrLf & _
        "  Please click on the 'OK' button below" & vbCrLf & _
        "  to carry out the report finalisation. " & vbCrLf & " ", _
        Buttons:=vbYes, Title:=" STOP! - Report has not yet been finalised! ")

    If FinalisePrompt = vbOK Then
            MsgBox ("yippppee")

many thanks

 

[GTO]

is it possible to disable or remove the msgbox 'x' close button by adapting my code below?

 Else: FinalisePrompt = MsgBox(vbCrLf & _
        "  This report has not yet been finalised and before" & vbCrLf & _
        "  continuing it must be done." & vbCrLf & vbCrLf & _
        "  Please click on the 'OK' button below" & vbCrLf & _
        "  to carry out the report finalisation. " & vbCrLf & " ", _
        Buttons:=[COLOR=red]vbYes[/COLOR], Title:=" STOP! - Report has not yet been finalised! ")
 
    If FinalisePrompt = vbOK Then
            MsgBox ("yippppee")

many thanks

The Buttons arg should be vbYesNo. This will disable the 'x'

 

[redspanna]

but by changing the Button arg to vbYesNo this then populates the msgbox with a yes/no button.
The only button I want is an OK with the X (close) disabled, ie forcing the user to click on the OK button

thanks

 

[VoG]

It appears that you can't http://www.ozgrid.com/forum/showthread.php?t=63533&page=1

 

[GTO]

Okay, I re-read your code a bit, but am confused. If there is only one option to dismiss the msgbox, what is the point of an IF test?

 

[redspanna]

Ok, so i think only way around this is to create a userform to act like the msg box and use

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Please use the button!"
  End If
End Sub

to disable the X close function

thanks anyway guys