在子 VBA 中停用 msgbox

Question

Sub prelim()
    MsgboX "Hello World"
End Sub


Sub Main()
    Call prelim
End Sub

在上面的代码中 Sub prelim 不能 edited.I 想要 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