¿Cómo bloquear y proteger celdas no vacías en Excel?
Supongamos que tengo una hoja de trabajo que llena algunas celdas en blanco dentro del rango de datos, ahora, quiero bloquear y proteger todas las celdas de datos, y dejar las celdas en blanco desbloqueadas para ingresar algún valor nuevo. ¿Cómo podría bloquear y proteger las celdas no vacías lo más rápido posible en Excel?
Bloquee y proteja todas las celdas no vacías en un rango seleccionado con Proteger hoja
Bloquee y proteja todas las celdas no vacías en un rango usado con código VBA
Bloquee y proteja todas las celdas no vacías en un rango seleccionado con Proteger hoja
Normalmente, puede terminar este trabajo en Excel con el siguiente método paso a paso:
1. Seleccione el rango de celdas que desea bloquear y proteger las celdas de datos, y luego haga clic en Inicio > Buscar y seleccionar > Ir a Especial, ver captura de pantalla:
2. En la Ir a Especial cuadro de diálogo, seleccione Espacios en blanco del desplegable Seleccione sección, ver captura de pantalla:
3. Luego haga clic OK , y todas las celdas en blanco se han seleccionado a la vez, y luego presione Ctrl + 1 teclas para abrir el Formato de celdas cuadro de diálogo, debajo del Protección pestaña, desmarque Cerrado opción, ver captura de pantalla:
4. Hacer clic OKY haga clic en Revisar > Hoja de protección, luego ingrese y confirme la contraseña que necesite, vea la captura de pantalla:
5. Hacer clic OK para cerrar los cuadros de diálogo, y ahora, todas las celdas de datos han sido protegidas y solo dejan las celdas en blanco desprotegidas.
Bloquee y proteja todas las celdas no vacías en un rango usado con código VBA
El método anterior tiene varios pasos, para lograrlo lo más rápido posible, el siguiente código VBA puede hacerte un favor, haz lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Luego haga clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: bloquee y proteja todas las celdas no vacías en una hoja de trabajo
Sub UnlockEmptyCells()
'Updateby Extendoffice
Application.ScreenUpdating = False
Cells.Locked = True
Selection.SpecialCells(xlCellTypeBlanks).Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
3. Y luego presione F5 clave para ejecutar este código, solo las celdas que no están en blanco están protegidas a la vez en el rango utilizado.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
