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.
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in