Como bloqueo una celda automáticamente

SR: experto como puedo bloquear una celda automáticamente después de haber ingresado cualquier dato (ya protegí la hoja y solo permití modificar ciertas celdas bajo una contraseña necesito que al ingresar un dato se bloquee automáticamente esta y me deje modificar la siguiente y así sucesivamente) agradezco si me pueden ayudar
Respuesta
1
En el Editor, en el objeto HOJA en cuestión, colocá esta rutina, ajustándola a tus rangos. Por ahora solo controla datos en col A. Si necesitas ayuda para acotar un rango o toda la hoja escribime nuevamente.
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
If Target.Column = 1 Then
    ActiveSheet.Unprotect    'si tiene clave agregá "tu_clave"
    Target.EntireRow.Locked = True
    ActiveSheet.Protect      'si tiene clave agregá "tu_clave"
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Bloquear celda después de introducir datos

Estoy utilizando un código que me funciona perfectamente. """""Worksheet - Change""""" Private Sub Worksheet_Change(ByVal Target As Range) dia = Date If Target.Column = 1 Then Target.Offset(0, 2) = dia hora = Time If Target.Column = 1 Then...
1 respuesta

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

Bloquear celdas cuando se ingrese valor

Elsa buenos días como estas.. Mira tengo el siguiente problema... Tengo tres celdas A1, B1, C1; como hago para que cuando yo ingrese un valor en cualquiera de estas tres celdas las otras dos automáticamente se me bloqueen y no me deje ingresar...
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

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

Bloqueo de diferentes celdas luego que los datos son cargados

Quisiera/n me ayuden con una necesidad en Excel (2010). Planteo la inquietud. Tengo un libro compuesto por cuatro hojas, en cada hoja tengo cálculos particulares que se realizan sólo cuando ciertos datos son válidos en esas celdas, por lo que utilicé...
1 respuesta

Introducir dato en celdas EXCEL y no PODER modificar

He creado en una hoja excel los datos básicos de una empresa y en las demás hojas hay datos y tablasy fórmulas relacionado a la empresa, el archivo vacío sin datos de solo fórmulas se entrega por cada mes el 1 primer día, obligatoriamente se pondrá...
3 respuestas

No puedo filtrar

Gustavo como esta me colabora con los siguiente: tengo una macro que usted me ayudo la vez pasado : Private Sub Worksheet_Change(ByVal Target As Range) Application.MoveAfterReturn = False If Target.Count = 1 Then If (Target.Column = 14 And Target <>...
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 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