使用VBA在Excel中添加自定義選項卡

Question

我在stackoverflow上找到了使用vba添加自定義選項卡的代碼。它可以工作，但只有在進入代碼編輯器模式時纔有效。報告菜單僅顯示出來，當我去到代碼按Alt + F11

我也打電話workbook_open事件loadcustribbon而不是使用宏中使用自定義用戶界面編輯器自定義菜單

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 

Answer 1

/色帶。

http://www.rondebruin.nl/win/s2/win001.htm