Как исключить дублирование CommandBar

[Ig]

Здравствуйте.

Условие: Имеем две идентичные Экселевские "книги". Если их открывать поотдельности, то каждая из них создает одну и ту же, удаляемую при закрытии, 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

...

вызывает ошибку.

[RayShade]

Ну а что, просто перебрать все бары и посмотреть нет ли уже такого имени, это не судьба?

[Ig]

Ух, шайтан.
Действительно, конструкция типа:

Код: Выделить всё

  For Each MyMainBar In Application.CommandBars
   If MyMainBar.Name = "MyCrazyBar" Then
    blnMyCB = True
   Else
    blnMyCB = False
   End If
  Next

Работает! Тем более странно, что этот вариант я уже пробовал, но тогда у меня ничего не получилось.