Proteger toutes les feuilles d'un classeur sauf une colonne dans chaque feuille

Résolu
Rox74 Messages postés 30 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 10 février 2011 - 3 févr. 2011 à 16:01
Rox74 Messages postés 30 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 10 février 2011 - 4 févr. 2011 à 10:49
Bonjour à tous
Je crois que tout est dit dans le titre mais je vais preciser ou j'en suis.
J'ai trouvé un bout de code qui me permet de rendre visible ou invisible toutes les feuilles du classeur et je souhaite modifier de code pour protéger toutes les feuilles lorsqu'elles sont visibles. Mais je souhaite aussi laisser une colonne libre en écriture.

Voila mon code
Dim feuille As Object

   For Each feuille In ThisWorkbook.Sheets  ' Affiche toutes les feuilles du classeur sauf la feuille demarrage.
      
      feuille.Visible = True
      feuille.Unprotect PassWord:=pass
     
       feuille.Columns("F:F").Locked = False                    ' Deverrouille les colonnes F  en ecriture
            
      feuille.Protect PassWord:=pass                        'protege toutes les feuilles en ecriture
   
   Next feuille


Le probleme c'est que le code fonctionne bien sans la ligne feuille. columns ...
mais avec la ligne feuille. columns ... j'ai un message d'erreur qui s'affiche lors de ma deuxieme boucle et seule la premiere feuille est protégée avec posibilité d'écrire dans la colonne F.

message d'erreur: "impossible de définir la propriété locked de la classe range."

donc Est ce que quelqu'un peut prendre 2min pour m'explique l'erreur de ma ligne feuille.columns... et m'aider pour que je puisse protéger mes feuilles.

Merci d'avance
rox

2 réponses

AlKatou Messages postés 95 Date d'inscription vendredi 7 février 2003 Statut Membre Dernière intervention 28 novembre 2017
3 févr. 2011 à 20:32
salut,


ton problème vient de cellules fusionnées qui doivent prendre par exemple des cellules de la colonne E avec la F.

pour savoir sur quelle feuille, mets un espion sur ton object Feuille.

bonne continuation.

Alka
3
Rox74 Messages postés 30 Date d'inscription mercredi 9 avril 2008 Statut Membre Dernière intervention 10 février 2011
4 févr. 2011 à 10:49
Bonjour a tous

Merci AlKatou pour l'aide, en effet j'ai des cellules fusionnées sur ma deuxième feuille, d'où le bug.
J'ai modifié ma mise en page et c'est bon
rox
0
Rejoignez-nous