Распространение макроса Excel

Question

Я создал макрос Excel, теперь я хочу, чтобы он распространялся среди других, кому необходимо его использовать.

Все, что я хочу, это если бы кто-нибудь мог помочь мне с шагами, чтобы прикрепить макрос к пользовательской кнопке панели инструментов, а затем сохранить пользовательскую панель инструментов и файл .xla.

Затем пользователи могут сохранить файл .xla в директоре XLSTART, и при запуске Excel появляется настраиваемая панель инструментов, готовая к использованию.

Answer 1

Этот код добавляет новую опцию меню и ссылается на методы VBA, так что это похоже на то, что вы хотите.

Добавьте их в рабочую книгу VBA:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
   MenuBars(xlWorksheet).Menus("NewMenu").Delete
End Sub

Private Sub Workbook_Open()
On Error Resume Next
    MenuBars(xlWorksheet).Menus("NewMenu").Delete
    Dim statMenu As Menu
    Set statMenu = MenuBars(xlWorksheet).Menus.Add(Caption:="NewMenu")
    statMenu.MenuItems.Add Caption:="Item 1", OnAction:="RunFirstItem"
    statMenu.MenuItems.Add Caption:="Item 2", OnAction:="RunSecondItem"
End Sub

Затем добавьте некоторые методы RunFirstItem & RunSecondItem в код модуля.

Сохраните как .XLA и готово.