VBA Msgbox - 无默认按钮

Question

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

有人知道这是否可能，以便我的表单上的两个按钮都不会设置为默认值，迫使用户单击"is"或“否”？

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