Условие: Имеем две идентичные Экселевские "книги". Если их открывать поотдельности, то каждая из них создает одну и ту же CommandBar ("MyCrazyBar") с парой кнопок.
Вопрос: Как "сказать" второй "книге", открываемой после первой, что повторно создавать панель уже не нужно?
Код типа:
- Код: Выделить всё
If Application.CommandBars("MyCrazyBar").Visible = False Then
Set MyMainBar = Application.CommandBars.Add(Name:="MyCrazyBar", _
Position:=msoBarTop, MenuBar:=False, _
Temporary:=True)
With MyMainBar
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoCustomize _
+ msoBarNoMove
' Создаем кнопки
Set CmdBttn1 = .Controls.Add(Type:=msoControlButton, ID:=1, _
Temporary:=True)
Set CmdBttn2 = .Controls.Add(Type:=msoControlButton, ID:=1, _
Temporary:=True)
End With
End If
...
вызывает ошибку.
