Problème de protection cellule

adr95

XLDnaute Occasionnel
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
 

Pièces jointes

  • Alerte.xlsm
    19.5 KB · Affichages: 32

Papou-net

XLDnaute Barbatruc
Re : Problème de protection cellule

Bonsoir adr95, JBARBE,

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

Code:
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.
 
Dernière édition:

adr95

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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.
 

Statistiques des forums

Discussions
312 883
Messages
2 093 234
Membres
105 657
dernier inscrit
dominique pinocchio