Come proteggere o bloccare i valori delle celle in base al colore di sfondo?
Supponiamo di avere un ampio foglio di lavoro con numerose celle formattate con diversi colori di sfondo e di voler bloccare o proteggere solo quelle con un colore specifico, ad esempio il rosso. Esistono metodi efficaci in Excel per proteggere automaticamente le celle in base al loro colore di riempimento?
Proteggere o bloccare i valori delle celle in base a Colore di Sfondo con codice VBA
Proteggere o bloccare i valori delle celle in base a Colore di Sfondo con codice VBA
Ad esempio, si desidera bloccare e proteggere tutte le celle rosse per impedire ad altri utenti di modificarne i valori. Il seguente codice VBA risolve questo problema: procedere come indicato.
1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del Modulo.
Codice VBA: Proteggere o bloccare 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 riportato sopra, il numero 3 all'interno dello script colorIndex = 3 indica le celle rosse che si desidera bloccare; è possibile sostituirlo con qualsiasi altro codice colore che si intende bloccare.
3. Premere quindi il tasto F5 per eseguire il codice: solo le celle rosse verranno bloccate, mentre tutte le altre rimarranno sbloccate nell'intervallo utilizzato del foglio di lavoro corrente, come mostrato nello screenshot:
4. Per proteggerle da modifiche da parte di altri utenti, basta applicare la funzione Proteggi foglio per proteggere il foglio di lavoro.
Suggerimento: per ottenere il numero corrispondente a un Codice colore, è possibile utilizzare 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, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi