fgassmann
Messages postés13Date d'inscriptiondimanche 13 janvier 2008StatutMembreDernière intervention 9 juillet 2009
-
11 mars 2009 à 11:36
fgassmann
Messages postés13Date d'inscriptiondimanche 13 janvier 2008StatutMembreDernière intervention 9 juillet 2009
-
12 mars 2009 à 09:37
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
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 11 mars 2009 à 20:47
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.