j'ai pu accomplir ceci avec VBA dans Excel 2013. Pas besoin d'éditeurs Spéciaux. Tout ce dont vous avez besoin est le Visual Basic code editor qui peut être consulté dans L'onglet Developer. L'onglet Developer n'est pas visible par défaut, il doit donc être activé dans File>Options>Customize Ribbon. Dans L'onglet Développeur, cliquez sur le bouton Visual Basic. L'éditeur de code s'ouvre. Cliquez avec le bouton droit de la souris dans le volet de L'Explorateur de projet à gauche. Cliquez sur le menu insert et choisissez module. Ajouter les deux sous-titres ci-dessous au nouveau module.

Sub LoadCustRibbon()

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 = "<mso:customUI      xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + "  <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "      <mso:tab id='reportTab' label='Reports' insertBeforeQ='mso:TabFormat'>" & vbNewLine
ribbonXML = ribbonXML + "        <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + "          <mso:button id='runReport' label='PTO' "   & vbNewLine
ribbonXML = ribbonXML + "imageMso='AppointmentColor3'      onAction='GenReport'/>" & vbNewLine
ribbonXML = ribbonXML + "        </mso:group>" & vbNewLine
ribbonXML = ribbonXML + "      </mso:tab>" & vbNewLine
ribbonXML = ribbonXML + "    </mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "  </mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "</mso:customUI>"

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

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

End Sub

Sub ClearCustRibbon()

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 = "<mso:customUI           xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<mso:ribbon></mso:ribbon></mso:customUI>"

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

End Sub

Appel LoadCustRibbon sub dans le Wookbook ouverte et appel le ClearCustRibbon sub dans le Before_Close Cas de le ThisWorkbook fichier de code.

j'ai lutté comme un fou, mais c'est effectivement la bonne réponse. Pour ce qu'il vaut, ce que j'ai manqué était:

1. comme d'autres disent, on ne peut pas créer le ruban CustomUI avec VBA, cependant , vous n'avez pas besoin de!
2. l'idée est que vous créez votre code de ruban xml en utilisant le fichier Excel > Options > personnalisez le ruban, puis exportez le ruban vers un .fichier customUI (c'est juste un fichier txt, avec xml dedans)
3. vient maintenant l'astuce : vous pouvez inclure le .code personnalisé dans votre .XLSM fichier en utilisant L'outil MS ils se réfèrent ici, en copiant le code de la .fichier personnalisé
4. une Fois qu'il est inclus dans le .fichier xlsm, chaque fois que vous l'ouvrez, le ruban que vous avez défini est a ajouté au ruban de l'utilisateur - mais utilisez < ribbon startFromScratch=" false " > ou vous perdez le reste du ruban. À la sortie-ing de l' classeur, le ruban est supprimé.
5. a Partir de là c'est simple, créez votre ruban, copiez le code xml qui est spécifique à votre ruban de l' .customUI fichier, et le placer dans un emballage comme indiqué ci-dessus (...< tabs> xml < /onglets...)

d'ailleurs la page qui l'explique sur le site de Ron est maintenant à http://www.rondebruin.nl/win/s2/win002.htm

et voici son exemple sur la façon dont vous activez /désactiver les boutons sur le Ruban http://www.rondebruin.nl/win/s2/win013.htm

Pour d'autres exemples xml de rubans, voir également http://msdn.microsoft.com/en-us/library/office/aa338202%28v=office.12%29.aspx

les réponses ici sont spécifiques à l'utilisation de l'éditeur D'UI personnalisé. J'ai passé du temps à créer l'interface sans ce merveilleux programme, donc je documente la solution ici pour aider n'importe qui d'autre à décider s'ils ont besoin de cet éditeur D'interface personnalisé ou non.

je suis tombé sur la page Web suivante de microsoft help - https://msdn.microsoft.com/en-us/library/office/ff861787.aspx . Cela montre comment configurer l'interface manuellement, mais j'ai eu quelques problème en pointant vers mon code d'ajout personnalisé.

pour obtenir les boutons pour fonctionner avec vos macros personnalisées, configurer la macro dans votre .subs xlam à appeler comme décrit dans cette réponse - appelant une macro excel à partir du ruban . En gros, vous devrez ajouter ce paramètre "control As IRibbonControl" à n'importe quel module pointé à partir de votre XML ribbon. En outre, votre XML de ruban devrait avoir l'onAction= " myaddin!mymodule.syntaxe mysub " pour appeler correctement n'importe quel les modules chargés par le ajouter.

grâce à ces instructions, j'ai pu créer un add in (.XLAM file) qui a un onglet personnalisé chargé lorsque mon VBA est chargé dans Excel avec l'add in. Les boutons d'exécuter du code à partir de l'ajouter et l'onglet personnalisé désinstalle quand j'ai supprimer le complément.

en plus de la réponse de Roi-Kyi Bryant, ce code fonctionne entièrement dans Excel 2010. Appuyez sur ALT + F11 et VBA editor apparaîtra. Double cliquer sur ThisWorkbook sur le côté gauche, puis coller ce 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 = "<mso:customUI      xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine
ribbonXML = ribbonXML + "  <mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:qat/>" & vbNewLine
ribbonXML = ribbonXML + "    <mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "      <mso:tab id='reportTab' label='My Actions' insertBeforeQ='mso:TabFormat'>" & vbNewLine
ribbonXML = ribbonXML + "        <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine
ribbonXML = ribbonXML + "          <mso:button id='runReport' label='Trim' " & vbNewLine
ribbonXML = ribbonXML + "imageMso='AppointmentColor3'      onAction='TrimSelection'/>" & vbNewLine
ribbonXML = ribbonXML + "        </mso:group>" & vbNewLine
ribbonXML = ribbonXML + "      </mso:tab>" & vbNewLine
ribbonXML = ribbonXML + "    </mso:tabs>" & vbNewLine
ribbonXML = ribbonXML + "  </mso:ribbon>" & vbNewLine
ribbonXML = ribbonXML + "</mso:customUI>"

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 = "<mso:customUI           xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
"<mso:ribbon></mso:ribbon></mso:customUI>"

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

End Sub

n'oubliez pas de sauvegarder et de rouvrir le classeur. Espérons que cette aide!