Деактивировать msgbox в подчиненном VBA

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