Problemas para habilitar con Application.CommandBars

Cuando abro el libro de Excel (2007) corre el evento

workbook_open()

......

For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next

.....

lo cual tengo que volver atrás antes de cerrar el libro y por este motivo utilizo el evento:

workbook_beforeclose()

.....

Sheets("Hoja1").Visible = True
Sheets("Hoja2").Visible = xlVeryHidden
Sheets("Hoja1").Select


Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True

....

Ahora comienza el problema, ya que cierra, guarda y todo lo que tiene que hacer, menos volver a aparecer el menú contextual.

En cambio, si creo una macro solo con el código:

Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next

que es el mismo que utilizo en el evento beforeclose, sí de vuelve a habilitar el menu contextual entre otros.

Acepto ayuda.

Gracias.

_Wix

Añade tu respuesta

Haz clic para o