barra de herramientas

Hola a todos
Tengo un conjunto de cuatro libros, que se llaman

Autorizados
Lineas
Movimientos y
Cargoencuenta

Como los he ido desarrollando mientras aprendía, las instrucciones que
tienen estan todas asociadas a botones en cada hoja.
Desde la empresa quieren que todas las provincias también trabajen con
ellos por lo que ahora quiero mejorar los libros haciendo una barra que
sea común a todos.
Crear la barra y poner los botones no me supone problema (leyendo por
ahí) siempre que sea para cada libro en particular, pero no se como
hacer para que cuando abro uno de los libros me compruebe si ya se ha
abierto otro y me cargue los botones que le son propios y en caso de que
no haya ninguno de los libros abiertos, cree la barra y le asigne los
botones.
Por la misma "regla de tres", no tengo problemas en eliminar la barra
cuando cierro un libro, pero no sé como hacer para mirar a ver si queda
alguno de los otros cuatro abiertos y mantener la barra y solo quitar
los botones de ese libro

El código que utilizo para un libro es

En ThisWorkbook

Private Sub Workbook_Open()
Dim barra As CommandBar

On Error Resume Next
Application.CommandBars("Estadisticas").Delete
On Error GoTo 0

Set barra = Application.CommandBars.Add
With barra
.Name = "Estadisticas"
.Visible = True
.Position = msoBarTop
.Protection = msoBarNoCustomize
End With
botones
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Estadisticas").Delete
End Sub

en un modulo normal para incorporar los botones, (solo pongo un ejemplo)

Sub botones()
Dim boton1 As CommandBarButton
Set boton1 = CommandBars("Estadisticas")._
Controls.Add(Type:=msoControlButton)
With boton1
.FaceId = 357
.OnAction = "Empresas"
.Caption = "Ver empresas remitidas"
.Visible = True
End With
End Sub


Espero haberme explicado bien.
Gracias anticipadas
J.Benito