Problème de protection cellule

[adr95]

Bonjour,

Voici mon problème je souhaite protéger mon fichier et laisser libre les cellules suivantes B4,C4 et de E6 à G9.

Je préfèrerai en vba mais si c'est pas possible faire par protéger la feuille.

Merci

 

[JBARBE]

Re : Problème de protection cellule

Bonsoir,

Compte tenu du faible espace à ne pas protéger, il vaut mieux protéger la feuille entière !

Bref, c'est mon point de vu ! attendons plus de suggestions !

 

[Papou-net]

Re : Problème de protection cellule

Bonsoir adr95, JBARBE,

Une macro pour protéger la feuille après avoir verrouillé les cellules visées :

Sub MacroExemple()
With ActiveSheet
  .Cells.Locked = True
  .Cells.FormulaHidden = True
  With .Range("B4:C4,E6:G9")
    .Locked = False
    .FormulaHidden = False
  End With
  .Protect "0000", userinterfaceonly:=True
End With
End Sub

Bien entendu, le mot de passe "0000" peut être remplacé par n'importe quelle chaîne de caractères.

Cordialement.

 

[adr95]

Re : Problème de protection cellule

Bonsoir,

Merci pour vos réponses mais en réalité Papou-net je veux laisser libre les cellules .Range("B4:C4,E6:G9") alors qu'avec ton code en faite je vérouille ces cellules comment faire dans ce cas pour sélectionner toutes les cellules sauf .Range("B4:C4,E6:G9").

Merci

 

[Papou-net]

Re : Problème de protection cellule

Doublon, message supprimé.

 

[Papou-net]

Re : Problème de protection cellule

Bonsoir,

Merci pour vos réponses mais en réalité Papou-net je veux laisser libre les cellules .Range("B4:C4,E6:G9") alors qu'avec ton code en faite je vérouille ces cellules comment faire dans ce cas pour sélectionner toutes les cellules sauf .Range("B4:C4,E6:G9").

Merci

Exact, je m'en suis rendu après coup et j'ai donc modifié le code entre temps (c'est JBARBE qui m'a mis la puce à l'oreille, merci à lui).

Tu n'as plus qu'à réessayer.

Cordialement.

 

[adr95]

Re : Problème de protection cellule

Merci beaucoup à tous les 2 j'arrive à ce que je souhaitais