¿Cómo proteger o bloquear los valores de las celdas según su color de fondo?
Supongamos que tengo una hoja de cálculo grande y varias celdas tienen distintos colores de fondo. Ahora quiero bloquear o proteger las celdas según un color de relleno específico, por ejemplo, todas las celdas con fondo rojo. ¿Existen métodos eficaces para realizar esta tarea en Excel?
Proteger o bloquear valores de celdas en función de Color de fondo con código VBA
Proteger o bloquear valores de celdas en función de Color de fondo con código VBA
Por ejemplo, si desea bloquear y proteger todas las celdas rojas para evitar que otros usuarios modifiquen sus valores, el siguiente código VBA le ayudará a resolver esta tarea. Siga estos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Proteger o bloquear valores de celdas en función del color:
Sub lockcellsbycolor()
'Updateby Extendoffice
Dim colorIndex As Integer
colorIndex = 3
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In ActiveSheet.UsedRange.Cells
Dim color As Long
color = xRg.Interior.colorIndex
If (color = colorIndex) Then
xRg.Locked = True
Else
xRg.Locked = False
End If
Next xRg
Application.ScreenUpdating = True
MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub
Nota: En el código anterior, el número 3 dentro de la instrucción colorIndex = 3 indica las celdas de color rojo que desea bloquear. Puede cambiarlo por otro código de color que quiera bloquear.
3. A continuación, pulse la tecla F5 para ejecutar este código. Solo se bloquearán las celdas de color rojo, mientras que el resto permanecerá desbloqueado en el rango utilizado de la Hoja de Cálculo actual. Vea la captura de pantalla:
4. Si desea protegerlas para que otros usuarios no las modifiquen, solo tiene que aplicar la función Proteger hoja para proteger esta hoja de cálculo.
Consejo: Para obtener el número de Código de color, puede aplicar la siguiente función definida por el usuario:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
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