Отключить обновление экрана для невидимых панелей инструментов

Question

Есть ли возможность отключить обновление экрана для скрытия и скрытия панелей инструментов?

У меня есть такой код, например, для события открытия рабочей книги:

Private Sub Workbook_Open()

On Error Resume Next

    Application.ScreenUpdating = False

    ActiveWindow.DisplayGridlines = False

    Loading.Show (vbModeless)

    ActiveWindow.DisplayHeadings = False

    Application.DisplayFormulaBar = False
    Application.DisplayFullScreen = True

    Dim RngCom As Range
    Dim RngSig As Range

    Application.Wait (Now + TimeValue("00:00:01"))

    ThisWorkbook.Worksheets("MAIN").ScrollArea = "$A$1:$BL$45"

    Call ECBRates

    ThisWorkbook.Sheets("MAIN").CommercialBox.Clear
    With ThisWorkbook.Sheets("Contact database")
        For Each RngCom In .Range("B61:B77")
            If RngCom.Value <> vbNullString Then ThisWorkbook.Sheets("MAIN").CommercialBox.AddItem RngCom.Value
        Next RngCom
    End With

    ThisWorkbook.Sheets("MAIN").SignatureBox.Clear
    With ThisWorkbook.Sheets("Contact database")
        For Each RngSig In .Range("A61:A77")
            If RngSig.Value <> vbNullString Then ThisWorkbook.Sheets("MAIN").SignatureBox.AddItem RngSig.Value
        Next RngSig
    End With

    DoEvents

    Call updateboxesInMAIN

    Unload Loading
    ThisWorkbook.Worksheets("MAIN").Activate
    Application.ScreenUpdating = True
End Sub

Каждый раз, когда я открываю рабочую книгу, я вижукак Excel скрывает панели инструментов и делает некоторые вещи.Можно ли сделать его невидимым и отображать только Loading.Show (vbModeless), пока все не будет готово?

Я пробовал Application.ScreenUpdating = False, но не сильно помог с этим кодом.