VBA Msgbox - 没有默认按钮

Question

我想知道是否可以在VBA(Excel 2007)中显示Msgbox,而不将任何按钮设置为默认值？我有一个是\否按钮,我不希望用户点击返回或空格键并意外触发默认按钮.

任何人都知道这是否可行,以便我的表单上的任何一个按钮都没有设置为默认值,强制用户单击是或否？

If MsgBox("Message goes here", vbYesNo + vbQuestion ) = vbYes Then
    'Something
Else
    'Else
End If

Answer 1

另一种解决方法(一个比其他用户窗体,或捕获Enter&Space等)是

1. 添加第三个按钮选项,这是一个无效的选择
2. 将此按钮设为默认值
3. 如果选择此选项,则继续显示消息框

码

Dim lngMsg As Long
Do
lngMsg = MsgBox("Message goes here (Yes or No)", vbQuestion + vbYesNoCancel + vbDefaultButton3)
Loop While lngMsg = vbCancel
If lngMsg = vbYes Then
' route a
Else
' route b
End If