Esta es la contestación más correcta que encomtrarás compartir, pero obsérvala detenidamente y analiza si es compatible a tu proyecto.
Solución:
Lo siguiente funciona para mí (Excel 2010)
Dim b1 As Button
Set b1 = ActiveSheet.Buttons("Button 1")
b1.Font.ColorIndex = 15
b1.Enabled = False
Application.Cursor = xlWait
Call aLongAction
b1.Enabled = True
b1.Font.ColorIndex = 1
Application.Cursor = xlDefault
Sé consciente de
.enabled = Falseno hace gris un botón.
El color de la fuente debe establecerse explícitamente para que aparezca en gris.
… No sé si está usando un botón ActiveX o no, pero cuando inserto un botón ActiveX en la hoja 1 de Excel llamado CommandButton1, el siguiente código funciona bien:
Sub test()
Sheets(1).CommandButton1.Enabled = False
End Sub
Espero que esto ayude…
Finalizando este artículo puedes encontrar las críticas de otros administradores, tú asimismo puedes mostrar el tuyo si te apetece.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)