Comment protéger ou verrouiller les valeurs des cellules en fonction de leur couleur de fond ?
Supposons que j’aie une grande feuille de calcul contenant de nombreuses cellules remplies avec différentes couleurs de fond. Je souhaite désormais verrouiller ou protéger uniquement les cellules dotées d’une couleur de remplissage spécifique — par exemple, toutes celles en rouge. Existe-t-il des méthodes efficaces pour réaliser cette opération dans Excel ?
Protéger ou verrouiller les valeurs des cellules en fonction de Couleur de fond à l’aide d’un code VBA
Par exemple, vous souhaitez verrouiller et protéger toutes les cellules rouges pour empêcher d’autres utilisateurs de modifier leurs valeurs. Le code VBA suivant résout ce problème en toute simplicité. Voici la marche à suivre :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Protéger ou verrouiller les valeurs des cellules en fonction de la couleur :
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
Remarque : Dans le code ci-dessus, le nombre 3 figurant dans la ligne colorIndex = 3 correspond aux cellules rouges que je souhaite verrouiller. Vous pouvez le remplacer par un autre code couleur que vous souhaitez verrouiller.
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Seules les cellules rouges seront verrouillées, tandis que toutes les autres resteront déverrouillées dans la plage utilisée de la feuille de calcul actuelle. Voir la capture d’écran :
4. Si vous souhaitez les protéger contre toute modification par d’autres utilisateurs, il vous suffit d’appliquer la fonctionnalité Protéger la feuille pour verrouiller cette feuille de calcul.
Conseil : Pour obtenir le numéro de Code couleur, vous pouvez utiliser la fonction personnalisée suivante :
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels