Automatically going to a custom Ribbon tab upon start up

[RawlinsCross]

Having a bit of trouble with this one. When I load the application and manually hit 'Alt' + "Y3" + 'Alt' it works perfectly. It seems it doesn't like it when I place the code in the Workbook_Open sub-routine.

Private Sub Workbook_Open()

Application.SendKeys "%Y3%"   'Alt + Y3 + Alt key

End Sub

It gives me an odd error saying "The cell or chart you're trying to change is on a protected sheet. To make a change, unprotected the sheet. You might be requested to enter a password"

Very odd, I can do it manually but not programmatically. Any thoughts?

 

[RoryA]

You'd be better off using the ribbon's onLoad callback so that you can use the iribbonui.activatetab method.

 

[RawlinsCross]

Hey Rory, TOTALLY agree.. but it was unresponsive.

XML
<customUI onLoad="RibbonOnLoad" xmlns="http://schemas.microsoft.com/office/2009/07/customui"> (now I have "<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">" and used

Public Rib As IRibbonUI

Sub RibbonOnLoad(ribbon As IRibbonUI)
Set Rib = ribbon
Rib.ActivateTab "MyCustomTabName" ' Name of the tab to activate
End Sub

But like I said, nothing happened.

 

[RoryA]

You might want to use OnTime to call a separate routine that activates the tab.

 

[RawlinsCross]

Tried it but am getting an error prompt "Invalid procedure call or argument"

XML
<customUI onLoad="RibbonOnLoad" xmlns="http://schemas.microsoft.com/office/2006/01/customui">


VBA

Public Rib As IRibbonUI

Sub RibbonOnLoad(ribbon As IRibbonUI)

Set Rib = ribbon
Application.OnTime Now + TimeValue("00:00:05"), Procedure:="LoadTab"

End Sub

Sub LoadTab()

Rib.ActivateTab "My custom ribbon name" 'Name of the tab to activate  <----------- Error happens here! "Invalid procedure call or argument"

End Sub

 

[RoryA]

Which module is that code in?

 

[RawlinsCross]

Which module is that code in?

It's in a generic inserted module that I've renamed "RibbonControls"

 

[RoryA]

Sounds like you have the wrong name for the tab

 

[RawlinsCross]

I was using the tab "label" instead of the tab "id". Duh!!! Thanks for sniffing that one out. Works perfectly now.