Open the specified tab on the Ribbon when you start Excel

[rediffusion]

I added my add-in to Excel. Used "XML" to call from inside keytip="BP" and ******="ChooseTab". Running "MyExcelAddin.xlam" - It's WORK!
But! The fact is that after I go to the developer tab > Excel add-Ins = there I choose my add-in... When i open the add-in or any other Book, and boom doesn't WORK already! WTF I did not understand!?
Anyways does not work after setting the tick!

Found on one portal StackOverflow, need to use "OnTime" instead of "Wait" or "Sleep". Seems like "Ontime" was not blocking the custom Ribbons from loading.
But I couldn't find the right code.

XML:

<!--?xml version="1.0" encoding="UTF-8" standalone="yes"?--><customui xmlns="http://schemas.microsoft.com/office/2009/07/customui" on Load="ChooseTab">
    <ribbon startfromscratch="false">
        <tabs>
            <tab id="mytab_1" label="My Macros" keytip="BP">
                <group id="Sheets" label="Листы">
                    <button
                        idMso="About"
                        label="Show About"
                        screentip="Bla bla bla"/>
            </button
</group></tab>
        </tabs>
    </ribbon>
</customui>

VBA:

 ' (component: customUI, atribut: ******), 2010
Sub [B][COLOR=#2F4F4F]ChooseTab[/COLOR][/B](ribbon As IRibbonUI)
    SendKeys "%BP{F6}"
End Sub

P.S. :
"Office 2019"
"Microsoft Windows 10 Enterprise 2016 LTSB"

 

[rediffusion]

0Key i find some info! It's not work in «Office 2019»

 

[rediffusion]

!! Also if you have «Microsoft Office 365 2019» this code works well:

Sub RibbonTab_******(ribbon As IRibbonUI)<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;"> ribbon.ActivateTabMso "TabFormulas"
End Sub</code>

 

[rediffusion]

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">SubOpenMyTab(ribbon AsIRibbonUI)'Starts during `Sheet` loading (event occurs after AutoOpen and everything else).
ribbon.ActivateTab"Tab1"'Write here the ID of the tab (which is written in XML).
' ribbon.ActivateTabMso "TabDeveloper" 'Thisis to open the built-in tab.
EndSub</code>

 

[rediffusion]

Another similar code:

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; box-sizing: inherit; white-space: inherit;">Sub SubOpenMyTab(ribbon As IRibbonUI) 'Starts during `Sheet` loading (event occurs after AutoOpen and everything else).
Set myRibbon = ribbon 'Remember the link to the Ribbon.
myRibbon.ActivateTab ("Tab1") 'Write here the ID of the tab (which is written in XML).
' myRibbon.ActivateTab ("TabDeveloper") 'This is to open the built-in tab.
End Sub</code>