在子VBA中停用msgbox

Question

Sub prelim()
    MsgboX "Hello World"
End Sub


Sub Main()
    Call prelim
End Sub

在上面的代码Sub prelim无法编辑.我想运行msgbox Sub prelim但运行时我Sub Main不希望弹出消息框.怎么做？

Answer 1

没有改变就不可能做到这一点 Sub prelim

Sub prelim(Optional silent As Boolean = True)
    If Not silent Then MsgBox "Hello World"
End Sub


Sub Main()
    prelim True   'no msgbox
    prelim False  'with msgbox
    prelim        'no msgbx
End Sub