color de pestaña de hoja

hola, Tomas !

Estoy intentando saber el codigo que al selecionar una hoja el color de la pesta#a se vuelva roja
y al cambiar de hoja la pesta#a desseleccionada vuelva a no tener color y la selecionada roja otra vez.

asumiendo que lo vas a utilizar con versiones de excel xp[2002] o superiores -?-
copia/pega las siguientes instrucciones -> en el modulo de codigo del libro [ThisWorkbook]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = 3
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = xlColorIndexNone
End Sub

toma nota de que si usas la caracteristica del color de las etiquetas en excel [xp o 2003]...
-> perderias dichos cambios en versiones anteriores [no tienen soporte para las caracteristicas 'nuevas']
ya que los colores, fuentes y demas caracteristicas de los elementos graficos de las apllicaciones en windows...
son 'controlados' por el panel de control de windows desde las propiedades de la pantalla [seccion apariencia]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector Miguel,

El codigo que has hecho funciona perfectamente y es breve, ademas es la
respuesta exacta a lo que buscava, muchas gracias por tu ayuda,

yo tambien estuve buscando y hice que si la pestaña de una hoja es
diferente al color blanco se quede igual sino que la pestaña se vuelva
roja, cuando la desactives vuelva al color blanco,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'ActiveWindow.WindowState = xlMaximized
Dim aaa
aaa = ActiveSheet.Tab.Color
If ActiveSheet.Tab.Color <> RGB(255, 255, 255) Then
ActiveSheet.Tab.Color = aaa Else ActiveSheet.Tab.Color = RGB(255, 0, 0)

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

If Sh.Tab.Color = RGB(255, 0, 0) Then Sh.Tab.Color = RGB(255, 255, 255)

end sub

Saludos y hasta pronto,

Tomas

Héctor Miguel ha escrit:

hola, Tomas !

> Estoy intentando saber el codigo que al selecionar una hoja el color de la pesta#a se vuelva roja
> y al cambiar de hoja la pesta#a desseleccionada vuelva a no tener color y la selecionada roja otra vez.

asumiendo que lo vas a utilizar con versiones de excel xp[2002] o superiores -?-
copia/pega las siguientes instrucciones -> en el modulo de codigo del libro [ThisWorkbook]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = 3
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Tab.ColorIndex = xlColorIndexNone
End Sub

toma nota de que si usas la caracteristica del color de las etiquetas en excel [xp o 2003]...
-> perderias dichos cambios en versiones anteriores [no tienen soporte para las caracteristicas 'nuevas']
ya que los colores, fuentes y demas caracteristicas de los elementos graficos de las apllicaciones en windows...
son 'controlados' por el panel de control de windows desde las propiedades de la pantalla [seccion apariencia]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.