Verouiller certaines cellules en fond de couleurRésolu

Question

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

dedenet2 · Accepted Answer

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++

fgassmann · Answer

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

Verouiller certaines cellules en fond de couleur

2 réponses

Votre réponse

Discussions similaires