Macro para bloquear una celda

Buenas Noches, necesito ayuda con una macro que me bloquee una celda, según el valor de otra celda. Ejemplo: Si en c6 tengo el valor 2001, d30 debe estar desprotegido, de lo contrario debe estar bloqueada.
De antemano, gracias por su ayuda
(xxxxxx)

1 Respuesta

Respuesta
1
Pega este código en la hoja y realizara lo que pides
Private Sub Worksheet_Change(ByVal Target As Range)
   Application.ScreenUpdating = False
    If [C6] <> "2001" Then
ActiveSheet.Unprotect
Range("D30").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
   Range("C6").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
If [C6] = "2001" Then
ActiveSheet.Unprotect
Application.ScreenUpdating = True
End If
End Sub
Si no sabes como hacerlo coméntalo y te explico como
Buenas noches, disculpa no haberme conectado antes, pero en este momento estoy probando la macro que me escribiste y no funciona.
Te explico mejor. Tengo una planilla en un libro, donde introduzco en c6 una serie de códigos dependiendo del trabajador, estos tienen asignados códigos desde el 2001 al 2020, cuando introduzco 2001, debe activarse la celda d30 para introducir un comentario, de lo contrario si no es ese código la celda d30 debe estar protegida. Sin embargo no logro que eso suceda.
Gracias por tu colaboración, la agradezco infinitamente.
Espero cualquier otra sugerencia.
Ami si me funciona aun así cambiala por esta otra pues código te envía siempre a la celda C6
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$6" And Target.Value <> 2001 Then
   Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("D30").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
  Range("C7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
If [C6] = "2001" Then
ActiveSheet.Unprotect
Application.ScreenUpdating = True
End If
End Sub
Pero como te dige lo has de pegar en el código de la hoja no en un modulo
pruébalas y ya me cuentas
Disculpa tanta molestia, se me olvidó comentarte que funciona protegiendo y desprotegiendo la página completa, sin embargo lo que quiero es que solamente desproteja la celda d30 si se cumple que el valor de c6 sea 2001, de lo contrario permanezca protegida esa celda. No quiero que desproteja la página completa, solo esa celda es la que debe variar según el valor que introduzca en c6.
Mil gracias por tu preocupación
Haber si te entendí bien copia este otro código este te quita y pone el bloqueo en D30 y deja siempre la hoja protegida
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$6" And Target.Value <> 2001 Then
   Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("D30").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
  Range("C7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
If [C6] = "2001" Then
ActiveSheet.Unprotect
Range("D30").Select
  Range("C7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End If
End Sub
Ya me cuentas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

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

Proteger celdas en excel

Tengo una hoja de excel que quiero que una columna una vez escrito un valor o dato en cada celda de esa columna no se pueda modificar, o que avise pidiendo permiso. No se si esto se puede hacer, sino a ver si hay alguna alternativa similar.
1 respuesta

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

Deseo bloquear un rango de celdas en función de un determinado valor. Ej: Si (A1=1;desbloq;bloq)

Ej: A1 = 1 mientras determinados valores están dentó de lo previsto, cuando estos valores no son los esperados A1 deja de valer 1. En el rango (B1:H5) quiero que se pueda cargar datos o modificar, mientras A1=1, cuando A1 deja de valer 1 se bloquee...
1 respuesta

Macro de autofiltros/oculte de columnas con celdas bloqueadas

Tengo una planilla con muchas macros que ejecutan autofiltros y oculte de columnas. Y necesito bloquear celdas luego de que se ingresen valores. El tema que cuando bloqueo las celdas tengo conflicto con la ejecución de las macros. Supongo porque...
1 respuesta

Bloqueo automático de celdas

Tavo tengo el siguiente código Sub bloqueo() If Range("a1").Value <> Empty Then Range("A1").Select ActiveSheet.Unprotect "hola" Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.Protect "hola", DrawingObjects:=True, Contents:=True,...
1 respuesta

Proteger celdas desbloqueadas

Llevo días peleándome con un tema, protejo un hoja de excel mediante una macro, antes de proteger bloqueo toda la hoja excepto la columna F. El problema es que cuando vuelvo a abrir el libro excel, la hoja ya no tiene las celdas bloqueadas y si la...
1 respuesta

Bloquear una casilla o no dependiendo del valor de otr

Tengo que proteger contra escritura una casilla en función del valor de otra, por ejemplo si mi casilla A1 vale "dital" la casilla B1 debe bloquarse contra escritura. Sin embargo si mi casilla A1 vale Analógico B2 debe estar sin bloquear y en ella yo...
1 respuesta