在2007中快速启用加载项的方法。

素心1218

很多破解版的，无法启用加载项。
我换了个思路，直接做成菜单，让excel2007加载显示出来，执行起来也方便。
再此和大家分享一下。
在thisworkbook中加入下列代码，自动会出来加载项

1. Private Sub Workbook_Open()
   
2. '**********************************
   
3.   On Error Resume Next
   
4. 
   
5. 
   
6.   Dim BarCtlBtn As CommandBarButton
   
7.   Dim BarCtlBtnP As CommandBarPopup
   
8.   Application.CommandBars("MyMenu").Delete
   
9.   With Application.CommandBars.Add("MyMenu", msoBarTop, False, False)
   
10. 
    
11. '******************************
    
12. 
    
13. 
    
14. '******************************
    
15.     Set BarCtlBtnP = .Controls.Add(Type:=msoControlPopup, id:=1)
    
16.        With BarCtlBtnP
    
17.            .Caption = "【菜单一】 "
    
18.            '.BeginGroup = False
    
19.        End With
    
20. 
    
21. 
    
22. 
    
23.     Set BarCtlBtn = BarCtlBtnP.Controls.Add(Type:=msoControlButton)
    
24.         With BarCtlBtn
    
25.             .Style = msoButtonIconAndCaption
    
26.             .Caption = "【菜单1-1】 "
    
27.             .FaceId = 247
    
28.             .OnAction = "Read_QMCODEREC"
    
29.         End With
    
30. 
    
31.      Set BarCtlBtn = BarCtlBtnP.Controls.Add(Type:=msoControlButton)
    
32.         With BarCtlBtn
    
33.             .Style = msoButtonIconAndCaption
    
34.             .Caption = "【菜单1-2】 "
    
35.             .FaceId = 247
    
36.             .OnAction = "UpdateQMCODEREC"
    
37.         End With
    
38. 
    
39. 
    
40. '****************************菜单选项：*************************
    
41.    Set BarCtlBtnP = .Controls.Add(Type:=msoControlPopup, id:=1)
    
42.        With BarCtlBtnP
    
43.            .Caption = "【其它选项】 "
    
44.            '.BeginGroup = False
    
45.        End With
    
46. 
    
47. 
    
48.     Set BarCtlBtn = BarCtlBtnP.Controls.Add(Type:=msoControlButton)
    
49.         With BarCtlBtn
    
50.             .Style = msoButtonIconAndCaption
    
51.             .Caption = "【恢复菜单】"
    
52.             .FaceId = 3650
    
53.             .OnAction = "Yes_Click"
    
54. 
    
55.         End With
    
56.     Set BarCtlBtn = BarCtlBtnP.Controls.Add(Type:=msoControlButton)
    
57.         With BarCtlBtn
    
58.             .Style = msoButtonIconAndCaption
    
59.             .Caption = "【隐藏菜单】"
    
60.             .FaceId = 3648
    
61.             .OnAction = "No_Click"
    
62.         End With
    
63. 
    
64. 
    
65. 
    
66.     .Visible = True
    
67.   End With
    
68. 
    
69. 
    
70. 
    
71. 
    
72. 
    
73. End Sub
    
74. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
75. On Error Resume Next
    
76.     Application.CommandBars("MyMenu").Delete
    
77.     Application.CommandBars("MyMenu2").Delete
    
78.     Application.DisplayFormulaBar = True
    
79.     '-------
    
80. End Sub
    
81. 
    
82. 
    
83. 
    
84. 
    

复制代码

素心1218

其中FaceId是选取excel图标
这里附上查找所有图标faceid的代码，大家可以选择喜欢的图标
除了菜单代码外，其余代码写在模块里。

1. Sub ShowFaceIDs()  '显示EXCEL图标！
   
2.     Dim NewToolbar As CommandBar
   
3.     Dim NewButton As CommandBarButton
   
4.     Dim i As Integer, IDStart As Integer, IDStop As Integer
   
5.    
   
6. '   Delete existing FaceIds toolbar if it exists
   
7.     On Error Resume Next
   
8.     Application.CommandBars("FaceIds").Delete
   
9.     On Error GoTo 0
   
10.    
    
11. '   Add an empty toolbar
    
12.     Set NewToolbar = Application.CommandBars.Add _
    
13.         (Name:="FaceIds", Temporary:=True)
    
14.     NewToolbar.Visible = True
    
15.    
    
16. '   Change the following values to see different FaceIDs
    
17.     IDStart = 1
    
18.     IDStop = 750
    
19.     For i = IDStart To IDStop
    
20.         Set NewButton = NewToolbar.Controls.Add _
    
21.             (Type:=msoControlButton, id:=2950)
    
22.         NewButton.FaceId = i
    
23.         NewButton.Caption = "FaceID = " & i
    
24.     Next i
    
25.     NewToolbar.Width = 600
    
26. End Sub

复制代码