Catherine

以下內容轉載自YAHOO知識+ ，由各路高手來分享使用EXCEL的一些技巧呦。
問題：
我寫了一些巨集，以方便執行重複的事，但遇到兩個問題
第一：我不希望自己做的按鈕一直出現在上方功能列
我將一些巨集，用自訂工作列的方式，做了幾個 ICON 放在上方功能區，但我希望它是只針對特定的檔案才發生，而不是不論開啟哪個檔案，那些自訂的按鈕都一直在那兒。 請問要如何做到
第二：有一些巨集，我希望是跟隨 EXCEL 的，不是放在那個原始檔案裡。萬一那個原始產生大家都用到巨集的檔案，被移走，則就開不起來了。
請問要如何做到。

最佳解答：
●●● 問題一 ●●●
在貼上底下的程式碼之前，請自行在專案內建立一個模組（Module ），模組內建力兩個巨集（Micro），巨集名稱為 Micro1 與 Micro2 ，巨集內的程式碼請自己寫。
然後，將底下的程式碼貼到 ThisWorkbook 物件模組內
貼完後『存檔』>>『關閉檔案』 >> 『重新開啟檔案』
Private mnctl As CommandBarButton
Private sdctl As CommandBarButton

Private Sub Workbook_Activate()
On Error Resume Next
mnctl.Visible = True
sdctl.Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
mnctl.Delete
sdctl.Delete
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
mnctl.Visible = False
sdctl.Visible = False
End Sub

Private Sub Workbook_Open()
Set mnctl = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlButton)
With mnctl
.FaceId = 1253
.Caption = "功能表上的按鈕"
.OnAction = "Micro1"
End With

Set sdctl = Application.CommandBars("Standard").Controls.Add(msoControlButton)
With sdctl
.FaceId = 1254
.Caption = "一般工具列上的按鈕"
.OnAction = "Micro2"
End With
End Sub

開啟這個檔案後會在「功能表」上建立一個按鈕，按下按鈕會執行 Micro1
然後又會在「一般」工具列上建立一個按鈕，按下按鈕會執行 Micro2
檔案在作用中時上面兩個按鈕會顯示，檔案處於非作用中時上述兩個按鈕會隱藏，檔案關閉後上述兩個按鈕會被刪除。

●●● 問題二 ●●●
將巨集放在 personal.xls （個人巨集活頁簿）內。
2006-04-16 21:05 補充
你的意思是你有一個檔案，這個檔案不可已有巨集
但是你需要巨集來處理這個檔案嗎？

如果是的話，那麼你可以把巨集放在 personal.xls 內。
工具>>巨集>>錄製新巨集
出現「錄製巨集」對話方塊，裡面有個『將巨集儲存在』選個人巨集活頁簿>>確定>>停止錄製
按 Alt + F11 開啟VBE，「專案總管」內會出現 personal.xls
將你的巨集寫在 personal.xls 內。
personal.xls 會隨著你開啟 excel 主程式時一併開啟，它會被儲存在 xlstart 資料夾內。
2006-04-16 21:12 補充
而如果你在『問題一』所建立的「按鈕」就是要處理『不可以有巨集的這個檔案』，又要按鈕隨檔案出現而出現，也隨檔案消失而消失，那麼你需要知道 application 事件的用法，請自己先在VBA說明內的「解答精靈」內尋找一下「使用 Application 物件的事件」，並仔細參考一下，不懂如何使用再發問。
2006-04-16 21:16 補充
最後，.xla 是增益集檔案，通常會寫些增加EXCEL應用的功能，例如分析工具箱、規劃求解、查表精靈....都是增益集檔案，增益集檔案可以是 .xla 或 .xll 檔案類型。
2006-04-16 21:22 補充
最最後....
最上面回應內容的巨集（Micro）裡的 Micro 是錯的
英文老是不及格，所以把 Macro 都寫成 Micro 了... @__@

原文出處：
http://tw.knowledge.yahoo.com/question/?qid=1206041501270