¿Cómo bloquear o proteger celdas en Excel después de introducir datos?
Supongamos que tiene una hoja de cálculo en la que solo un rango específico de celdas en blanco requiere entrada de datos. Una vez finalizada la introducción de los datos, ¿cómo puede hacer que esas celdas se bloqueen automáticamente para evitar modificaciones posteriores? Este artículo le ayudará.
Bloquear o proteger celdas tras la entrada de datos mediante código VBA
Bloquear o proteger celdas tras la entrada de datos mediante código VBA
Por ejemplo, el rango específico de celdas en blanco es A1:F8. Siga estos pasos para bloquear dichas celdas tras introducir datos en Excel.
1. Desbloquee primero este rango: seleccione las celdas, haga clic con el botón derecho y elija Establecer formato de celda en el menú contextual. En el cuadro de diálogo Establecer formato de celda, desactive la casilla Bloqueada en la pestaña Protección y, por último, haga clic en el botón Aceptar. Vea la captura de pantalla:
2. Haga clic en Revisar > Proteger hoja. Especifique una contraseña para proteger esta hoja de cálculo.
3. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código en el menú contextual. A continuación, copie y pegue el siguiente código VBA en la ventana de código. Vea la captura de pantalla:
Código VBA: Bloquear o proteger celdas tras la entrada de datos
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Nota: En el código, «A1:F8» es el rango donde debe introducir los datos y «123» es la contraseña de la hoja protegida. Modifíquelos según sus necesidades.
4. Pulse simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
Una vez finalizada la introducción de datos en las celdas del rango A1:F8, estas se bloquearán automáticamente. Si intenta modificar el contenido de cualquier celda de dicho rango, aparecerá un cuadro de diálogo de advertencia. Vea la captura de pantalla:
Artículos relacionados:
- ¿Cómo bloquear todas las referencias de celda en las fórmulas de una sola vez en Excel?
- ¿Cómo bloquear o desbloquear la selección según el valor de otra celda en Excel?
- ¿Cómo anclar una imagen o foto a una celda en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos