Come proteggere o bloccare i valori delle celle in base al colore di sfondo?

Supponiamo che io abbia un grande foglio di lavoro e che più celle siano riempite con diversi colori di sfondo. Ora voglio bloccare o proteggere le celle in base a un determinato colore di riempimento, come bloccare o proteggere tutte le celle di colore rosso. Esistono buoni metodi per gestire questa operazione in Excel?

Proteggi o blocca i valori delle celle in base al colore di sfondo con il codice VBA

Proteggi o blocca i valori delle celle in base al colore di sfondo con il codice VBA

Ad esempio, voglio bloccare e proteggere tutte le celle rosse per impedire ad altri utenti di modificare i valori di queste celle. Il seguente codice VBA può risolvere questo problema per te, procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Proteggi o blocca i valori delle celle in base al colore:

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: Nel codice sopra, il numero 3 all'interno dello script colorIndex = 3 indica le celle di colore rosso che voglio bloccare; puoi cambiarlo con un altro indice di colore che desideri bloccare.

3. Quindi premi il tasto F5 per eseguire questo codice, e solo le celle di colore rosso verranno bloccate, mentre le altre celle saranno sbloccate nell'intervallo utilizzato del foglio attivo, vedi screenshot:

4. Se vuoi proteggerle da modifiche da parte di altri utenti, ti basta applicare la funzione Proteggi Foglio per proteggere questo foglio di lavoro.

Suggerimenti: Per ottenere il numero dell'indice del colore, puoi applicare la seguente Funzione Definita dall'Utente:

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

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!