如何在子 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