vba - 在子 VBA 中停用 msgbox

Question

Sub prelim()
    MsgboX "Hello World"
End Sub


Sub Main()
    Call prelim
End Sub

上述代码中 Sub prelim无法编辑。我在运行 Sub prelim 时需要 msgbox但是当我运行 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