Private Sub Workbook_BeforeClose(Cancel As Boolean)
DelMenu
End Sub
Private Sub Workbook_Open()
AddMenu
End Sub

Public Sub AddMenu()
Call DelMenu
With Application.MenuBars(xlWorksheet).Menus.Add("&Новое меню")
 .MenuItems.Add "меню", "модуль1"
 .MenuItems.Add "меню", "модуль2"
 .MenuItems.Add "меню", "модуль3"
End With
End Sub
Public Sub DelMenu()
On Error Resume Next
Application.MenuBars(xlWorksheet).Menus("Новое меню").Delete
On Error GoTo  0 
End Sub

Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
newMenu.Caption = "Custom"
Set ctrl1 = newMenu.CommandBar.Controls.Add(Type:=msoControlButton, ID:= 1 )
With ctrl1
    .Caption = "Import"
    .TooltipText = "Import"
    .Style = msoButtonIconAndCaption
    .FaceId =  17 
End With

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы