Есть двсе книги. Должны быть открыты одновременно. Надо, чтобы у каждой было свое меню. Есть код, но он работает только если открывать книги поочередно, а при открытие вместе первая книга цепляет менб второй. Что не так?
Sub MakeMenuBar2() (в другой книге MakeMenuBar1)
Dim NewMenuBar As CommandBar
Dim NewMenu As CommandBarControl
Dim NewItem As CommandBarControl
Dim NewMenu1 As CommandBarControl
Dim NewItem1 As CommandBarControl

' Удаление строки меню, если она существует
Call DeleteMenuBar2

' Добавление строки меню
Set NewMenuBar = CommandBars.Add(MenuBar:=True)
With NewMenuBar
.Name = "Моя строка меню"
.Visible = True
End With

' Копирование меню File (ID=30002) со строки меню листа
CommandBars("Worksheet Menu Bar").FindControl(ID:=30002).Copy _
Bar:=CommandBars("Моя строка меню")

' Добавление нового меню
Set NewMenu = NewMenuBar.Controls.Add _
(Type:=msoControlPopup)
NewMenu.Caption = "&Приложение №2"

' Добавление новой опции меню
Set NewItem = NewMenu.Controls.Add(Type:=msoControlButton)
With NewItem
.Caption = "&Приложение №2(форма)"
.OnAction = "ShowHelp"
End With
' Добавление новой опции меню
Set NewItem = NewMenu.Controls.Add(Type:=msoControlButton)
With NewItem
.Caption = "&Не использовать"
.OnAction = "DeleteMenuBar"
End With
'Добавление новой опции меню
Set NewItem = NewMenu.Controls.Add(Type:=msoControlButton)
With NewItem
.Caption = "&Печать приложения №2"
.OnAction = "ShowHelp"
End With

Спасибо за совет, получилось, но не совсем, так как книги имееют жесткую связь. Если кому интересно, то обошла через Активное и неактивное окно, вроде работает.