Excel Querries and connection pane - VBA not reacting as it should? or am I missing something?

[Radoslaw Poprawski]

Hello,
Based on this thread:

Queries and Connections Pane via VBA?​

from this forum i came up with this code:

Private Sub Workbook_Open()
    
    BU_Matrix.Range("G2") = Year(Now()) & "_" & Right("0" & Month(Now()), 2) & "A"
    ActiveWorkbook.Connections("Query - MyQuery").Refresh
    
    Application.CommandBars("Queries and Connections").Visible = True
    Application.CommandBars("Queries and Connections").Position = msoBarRight
    Application.CommandBars("Queries and Connections").Width = 350
    
End Sub

and when I go step by step (f8) it works.
however when i save and close, then re-open i can clearly see the pane is openning but b4 its fullly visable it vanishes again and i do not l know why?
My second question how would I implement this code into personal.xlsb file so that with each excel file being open this code would run?

 

[Radoslaw Poprawski]

up

 

[Radoslaw Poprawski]

up,
can any1 help please?
if this thread is missing something please let me know