Bloquear celdas al ingresar texto
Me gustaría bloquear celdas de A:A para no ser sobre escritas o borradas con otras letras me gustaría saber como hacerlo
1 Respuesta
H o l a:
Para bloquear las celdas de la columna A, primero selecciona todas las celdas, en el Menú Inicio, Formato, Formato de celdas, Proteger, desactiva la casilla "Bloqueda". Presiona Aceptar.
Segundo, selecciona la columna A, en el Menú Inicio, Formato, Formato de celdas, Proteger, activa la casilla "Bloqueada. Presiona Aceptar.
Ahora, tienes que proteger la hoja, en el menú Inicio, Revisar, Proteger hoja, escribe un password y en "Permitir a los usuarios", activa las casillas que desees. Presiona Aceptar.
Vuelve a capturar el password.
Listo! Las celdas de la columna A están bloqueadas.
':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
HOLA :)
Creo me explique mal disculpa, quiero ingresar texto a una celda y ala momento de ingresar ese texto automáticamente se bloquee por medio de una fórmula o código sin poder hacer la modificación
Pon la siguiente macro en los eventos de tu hoja.
Cambia "abc" por el password que desees.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("A:A")) Is Nothing Then
ActiveSheet.Unprotect "abc"
Target.Locked = True
ActiveSheet.Protect "abc", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
'Sal u dos
