Note: The other languages of the website are Google-translated. Back to English

¿Cómo proteger o bloquear los valores de las celdas según el color de fondo?

Supongamos que tengo una hoja de trabajo grande y varias celdas están llenas con diferentes colores de fondo, ahora quiero bloquear o proteger las celdas en función de cierto color de relleno, como bloquear o proteger todas las celdas con color rojo. ¿Existen buenos métodos para hacer frente a esta tarea en Excel?

Proteja o bloquee los valores de celda según el color de fondo con el código VBA


flecha azul burbuja derecha Proteja o bloquee los valores de celda según el color de fondo con el código VBA

Por ejemplo, quiero bloquear y proteger todos los glóbulos rojos, para evitar que otros usuarios modifiquen estos valores de celda, el siguiente código VBA puede resolver este trabajo por usted, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código VBA: proteja o bloquee los valores de la celda según el 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 en la pestaña índice de color = 3 El script indica las celdas de color rojo que quiero bloquear, puede cambiarlo a otro índice de color que desee bloquear.

3. Entonces presione F5 clave para ejecutar este código, y solo se han bloqueado las celdas de color rojo, otras celdas se desbloquean en el rango usado de la hoja activa, vea la captura de pantalla:

doc bloquear celdas por color 1

4. Si desea protegerlos para que no sean modificados por otros usuarios, solo necesita aplicar el Hoja de protección característica para proteger esta hoja de trabajo.

Sugerencias: para obtener el número de índice 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

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (4)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Hola,
j'aurais voulu savoir si il était possible de faire la même escogió mais avec la valeur de la cellule plutôt que la couleur?
Por ejemplo: Verrouiller toutes les cellules dont la valeur est "-" de la plage B2:E25.

Gracias de antemano
Este comentario fue minimizado por el moderador en el sitio
¿Se puede aplicar esto a una hoja con celdas combinadas y puede reconocer un color de celda que se basa en formato condicional? Quiero bloquear las celdas que tienen el código de color 15 y esas celdas tienen el código de color 15 según un formato condicional. Gracias de antemano.
Este comentario fue minimizado por el moderador en el sitio
¿Cómo ejecuta esto en un ciclo, de modo que todas las celdas en todas las hojas que no sean del color específico estén protegidas?
Este comentario fue minimizado por el moderador en el sitio
Bonjour, yat il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans l onglet accueil pour mettre un fond de couleur sur les cases non protégés merci
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL