Jody está desarrollando botones de barra de herramientas personalizados y asignando macros a los botones. Ella quiere que los botones estén habilitados siempre que al menos una hoja de trabajo esté visible, pero está buscando el código adecuado para manejar tal situación.

Hay muchas formas de abordar esto, como se podría suponer con un entorno tan diverso como Excel. Una posible solución es crear una rutina que simplemente verifique si hay ventanas visibles en la pantalla. Si los hay, se pueden habilitar los botones de la barra de herramientas; si no los hay, pueden desactivarse. La siguiente macro hará precisamente eso:

Sub CheckButtons()

Dim bOneOpen As Boolean     Dim I As Integer     Dim J As Integer          bOneOpen = False     For I = 1 To Workbooks.Count         For J = 1 To Workbooks(I).Windows.Count             If Workbooks(I).Windows(J).Visible Then bOneOpen = True         Next J         If bOneOpen Then Exit For     Next I     If bln Then         'enable buttons     Else         'disable buttons     End If End Sub

Observe los dos comentarios cerca de la parte inferior de la macro. Todo lo que necesita hacer es reemplazar esos comentarios con el código apropiado para habilitar o deshabilitar los botones de la barra de herramientas. (El código variará, según el número y la configuración de sus botones).

Esta macro se puede llamar manualmente o desde cualquiera de los eventos que se desencadenan por cambios de ventana, como los que se activan cuando las ventanas se abren, se redimensionan, minimizan, maximizan o restauran.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2618) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.