Come proteggere o bloccare i valori delle celle in base al colore di sfondo?
Supponendo di avere un foglio di lavoro di grandi dimensioni e più celle sono riempite con diversi colori di sfondo, ora, voglio bloccare o proteggere le celle in base a un determinato colore pieno, come bloccare o proteggere tutte le celle con il colore rosso. Esistono buoni metodi per gestire questa attività 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 tutti i globuli rossi, al fine di impedire ad altri utenti di modificare questi valori di cella, il seguente codice VBA può risolvere questo lavoro per te, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.
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
Note:: Nel codice sopra, il numero 3 all'interno indice colore = 3 lo script indica le celle di colore rosso che voglio bloccare, puoi cambiarlo in un altro indice di colore che vuoi bloccare.
3. Quindi premere F5 tasto per eseguire questo codice e solo le celle di colore rosso sono state bloccate, altre celle sono sbloccate nell'intervallo utilizzato del foglio attivo, vedi screenshot:
4. Se vuoi proteggerli dall'essere modificati da altri utenti, devi solo applicare il Proteggi foglio caratteristica per proteggere questo foglio di lavoro.
Suggerimenti: per ottenere il numero di indice del colore, è possibile applicare la seguente funzione definita dall'utente:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
