Como proteger ou bloquear valores de células com base na cor de fundo?

Suponha que eu tenha uma grande planilha e várias células estejam preenchidas com diferentes cores de fundo. Agora, quero bloquear ou proteger as células com base em uma cor específica de preenchimento, como bloquear ou proteger todas as células com a cor vermelha. Existem bons métodos para lidar com essa tarefa no Excel?

Proteger ou bloquear valores de células com base na cor de fundo usando código VBA

Proteger ou bloquear valores de células com base na cor de fundo usando código VBA

Por exemplo, quero bloquear e proteger todas as células vermelhas para evitar que outros usuários modifiquem esses valores de células. O seguinte código VBA pode resolver esse trabalho para você; por favor, siga estas instruções:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Proteger ou bloquear valores de células com base na cor:

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

Observação: No código acima, o número 3 dentro do script colorIndex = 3 indica as células vermelhas que desejo bloquear. Você pode alterá-lo para outro índice de cor que deseja bloquear.

3. Em seguida, pressione a tecla F5 para executar este código, e somente as células de cor vermelha serão bloqueadas, enquanto outras células permanecerão desbloqueadas na faixa utilizada da planilha ativa. Veja a captura de tela:

4. Se você deseja protegê-las contra modificações por outros usuários, basta aplicar o recurso Proteger Planilha para proteger esta planilha.

Dicas: Para obter o número do índice de cor, você pode aplicar a seguinte Função Definida pelo Usuário:

Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!