Cambiar de color fondo de celda si la hoja esta protegida

9 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Cambiar de color fondo de celda si la hoja esta protegida

Hola Amig@s

Me pueden ayudar con alguna forma que cuando mi hoja este protegida con contraseña se cambie fondo de mi celda?

puese en la celda A10 un texto que dice PROTEGIDO y bueno quisiera que cuando la hoja este protediga el fondo de la celda se ponga de color rojo y si la hoja no esta protegida el fondo es de color verde.

Desde ya muchas gracias

 

Atte,

 

Jesús

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 9 horas 46 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
¿formato condicional?

Si tienes en la celda A10 un texto que dice "Protegido" puedes utilizar un formato condicional que cambie el color del fondo cuando A10="Protegido"

 

La ventaja de hacerlo con formato condicional (frente a hacerlo con una macro), es que cuando no se cumpla la condición las celdas recuperan su formato original, por si tienes cosas coloreadas, no se perdería el aspecto original.

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: ¿formato condicional?

Gracias por responder pero te cuento que no funciona, mira tengo estos codigos

Sub protncagte()
'Sheets("NCAGTE").Protect Password:="xxx" 'Protege la Hoja1 activa con contraseña.
ActiveSheet.Protect Password:="xxx"
End Sub

Sub desprotncagte()
'Sheets("NCAGTE").Select 'Selecciona la Hoja1
ActiveSheet.Unprotect Password:="xxx" 'Protege la hoja activa. Con contraseña.
End Sub

Los cuales los tengo en dos botones incrustados en mi hoja de excel, lo que quiero que cuando este activada la protección de la hoja tenga como una alerta en la celda A10 asi como un semaforo digamos.

 

Saludos

 

Jesús

Jesus Martinez Plantarosa

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: ¿formato condicional?

Añade al código lo siguiente:

 

Sub protncagte()
'Sheets("NCAGTE").Protect Password:="xxx" 'Protege la Hoja1 activa con contraseña.

Range("A10").value = "PROTEGIDO"

ActiveSheet.Protect Password:="xxx"


End Sub

Sub desprotncagte()
'Sheets("NCAGTE").Select 'Selecciona la Hoja1

Range("A10").clear
ActiveSheet.Unprotect Password:="xxx" 'Protege la hoja activa. Con contraseña.
End Sub

 

 

De esta manera, utilizando el formato condicional que te dijo Paco, cuando el valor de la celda cambie a "PROTEGIDO", cambiará el color de lo que tú quieras (las celdas a las que les apliques el formato condicional, que puede ser toda la hoja)

 

Un saludo

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: ¿formato condicional?

Funcionaaaa gracias por la ayuda, solo que al limpiar la celda lo limpia el formato condicional tambien :(, hay alguna manera que la palabra "PROTEGIDO" sea de color rojo o el fondo rojo direcamente con código?

gracias

saludos

Jesús

Jesus Martinez Plantarosa

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Re: ¿formato condicional?

Estimados amigos gracias por sus colaboraciones, este es el codigo final

Sub protncagte()
'Sheets("NCAGTE").Protect Password:="jmp" 'Protege la Hoja1 activa con contraseña.
Range("T1").Value = "PROTEGIDO"
Range("t1").Interior.ColorIndex = 3
ActiveSheet.Protect Password:="jmp"
End Sub
Sub desprotncagte()
'Sheets("NCAGTE").Select 'Selecciona la Hoja1
ActiveSheet.Unprotect Password:="jmp"
Range("T1").Value = "DESPROTEGIDO"
Range("t1").Interior.ColorIndex = 4
 'Desprotege la hoja activa. Con contraseña.
End Sub

Saludos

 

Jesús

Jesus Martinez Plantarosa

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: ¿formato condicional?

Sin el formato condicional, cambia el color como quieras. Vía código es correcto, pero no es necesario.

Puedes poner la celda del color que le corresponda en diseño, y luego vía código lo único que haces es cambiar las condiciones que hacen que entre en funcionamiento el formato condicional.

De esta manera, cuando bloqueas, se apica el condicional. Cuando desbloqueas, se aplica el color que tenías definido previamente.

 

 

Un saludo

Mar (no verificado)
Imagen de Mar
Me gustaria probar vuestra

Me gustaria probar vuestra opción. Donde se pone este código?

 

Estoy muy pez en opciones excel

 

Muchas gracias

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 2 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Si pulsas las teclas Alt+F9

Si pulsas las teclas Alt+F9 se te activa el editor de Visual Basic para Aplicaciones (VBA)

Un saludo