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
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.
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
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
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
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
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
Me gustaria probar vuestra opción. Donde se pone este código?
Estoy muy pez en opciones excel
Muchas gracias
Si pulsas las teclas Alt+F9 se te activa el editor de Visual Basic para Aplicaciones (VBA)
Un saludo