Verouiller certaines cellules en fond de couleur [Résolu]

Signaler
Messages postés
13
Date d'inscription
dimanche 13 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2009
-
Messages postés
13
Date d'inscription
dimanche 13 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2009
-
Bonjour à tous,

Voici mon problème:
Je dipose d'un classeur dans lequel j'ai plusieurs onglets.
J'aimerais verouiller toutes les cellules qui ne sont pas avec un fond couleur 35 avec un mot de passe.

Voici mon bout de code :

MotDePasse = "lol"
For Each Feuille_ In ActiveWorkbook.Sheets
Feuille_.Activate
Feuille_.Unprotect MotDePasse
Feuille_.Range("A1:BB500").Locked = False
For Each cell In Range("A1:BB500")
    If cell.Interior.ColorIndex <> 35 Then
       cell.Locked = True
       cell.Protect MotDePasse
    End If
Next
Feuille_.Protect MotDePasse
Next

François

2 réponses

Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
1
Salut

Je suppose que la variable "cell" est déclarée
dim cell as range

Ton programme fonctionne mais il faut enlever la ligne:
         cell.Protect MotDePasse
Tu ne peux appliquer directement le mot de passe sur une
cellule.On le fait sur la feuille.

A++
Messages postés
13
Date d'inscription
dimanche 13 janvier 2008
Statut
Membre
Dernière intervention
9 juillet 2009

Merci beaucoup, je ne savais pas qu'on ne  pouvait pas appliquer sur une cellule...

François