Cambiar 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
Atentamente,
Jesús
1 respuesta
Trabajar con hojas protegidas en VBA es siempre trabajosa, ya que cualquier acción a realizar sobre la hoja requiere la precia desprotección. Un código te puede servir sería:
Private Sub Worksheet_Activate()
If Hoja1.ProtectContents = True Then
MsgBox "La Hoja está Protegida."
Hoja1.Unprotect
Hoja1.Range("A10").Interior.color = vbRed
Hoja1.Protect
Else
MsgBox "La hoja está Desprotegida."
Hoja1.Range("A10").Interior.color = vbGreen
End If
End Sub
A incluir en la ventana de código de la hoja.
Espero te sirva.
Saludos
