How to add a custom Ribbon tab using VBA?

Question

I am looking for a way to add a custom tab in the Excel ribbon which would carry a few buttons. I chanced on some resources addressing it via Google but all look dodgy and o

Answer 1

In addition to Roi-Kyi Bryant answer, this code fully works in Excel 2010. Press ALT + F11 and VBA editor will pop up. Double click on ThisWorkbook on the left side, then paste this code:

Private Sub Workbook_Activate()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "" & vbNewLine
ribbonXML = ribbonXML + "  " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "      " & vbNewLine
ribbonXML = ribbonXML + "        " & vbNewLine
ribbonXML = ribbonXML + "          " & vbNewLine
ribbonXML = ribbonXML + "        " & vbNewLine
ribbonXML = ribbonXML + "      " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "  " & vbNewLine
ribbonXML = ribbonXML + ""

ribbonXML = Replace(ribbonXML, """", "")

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Private Sub Workbook_Deactivate()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "" & _
""

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Don't forget to save and re-open workbook. Hope this helps!