Proteger de celda según condición otra celda

Tengo una hoja calculo con celdas protegidas
necesito proteger una celda la "b5" que no esta desprotegida
se puede hacer un macro que según el valor de una celda "h8" cumpla una condición >1 proteja la celda "b5"

1 Respuesta

Respuesta
2
En el Editor, en el margen izquierdo selecciona el objeto Hoja que coincida con la que tendrá el control y ahí copia esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H8").Value > 1 Then
Range("B5").Select
'primero se debe desproteger la hoja , agrega el pass
ActiveSheet.Unprotect "tupassword"
Selection.Locked = True
'vuelve a proteger la hoja
ActiveSheet.Protect "tupassword"
End If
End Sub
Esta rutina lo que hace es controlar el cambio en la celda H8 (que puede deberse al resultado de una fórmula o ingreso de datos.)
Si es lo que necesitas, no olvides finalizar la consulta
Saludos
Elsa
PD) No te pierdas mi manual '300 Macros' explicadas paso a paso en español. Descarga la demo gratis desde: http://es.geocities.com/lacibelesdepunilla/manual

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Por qué me sale el error 1004 en tiempo de ejecución cuando la hoja esta protegida?

El error que me sale es el siguiente: Se ha producido el error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto Si la hoja está desprotegida no hay problema, pero cuando la protejo e interactúo con la celda que está...
1 respuesta

Macro para desproteger una celda según texto en otra c

Estimad@ He tratado de llevar a cabo una macro principalmente extrayendo información de este portal pero no he podido aplicarla a mi problemática, ojala me pudieras ayudar, te lo agradecería infinitamente. Resulta que tengo ciertas celdas de mi hoja...
2 respuestas

Macro para proteger una celda de excel inmediatamente después de entrar (copiar) algún contenido en ella

Me gustaría me ayuden a completar esta macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E13:J13")) Is Nothing Then ActiveSheet.Unprotect Target.Locked = True ActiveSheet.Protect End If End Sub Lo que hace es...
2 respuestas

Bloquear celdas con parámetro de ingreso

Tengo un archivo en excel en el cual necesito bloquear unas celdas especificas de aceurdo a un parámetro ingresado, por ejemplo si la celda B5 es igual a Directo la celda B4 debe bloquearse automáticamente, si la celda B5 es igual a Indirecto, la...
1 respuesta

Como ejecutar una macro con celdas bloqueadas

Tengo la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 Then Target.Offset(0, 1) = Date End Sub El panorama es asi; tengo la hoja completamente protegida, solo algunas celdas donde ingresar datos, en este...
1 respuesta

Macro para bloquear celdas escritas en Excel

Tengo la siguiente macro, pero yo quiero que solo se aplique a la Hoja1. ¿Es posible? Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Proteger celdas con información 'Por.Dam Application.ScreenUpdating = False ActiveSheet.Unprotect...
2 respuestas

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua, es decir si yo introduzco una serie de datos en una celda, desencadenen una macro que bloquee la celda contigua sin necesidad de utilizar ningún método...
1 respuesta

Macro condicional

Necesito ayuda para generar una macro que actúe al registrarse la fecha en una celda, y en función del valor de esta celda, otro rango de celdas se bloquee.
1 respuesta