Blocage des cellules en ecriture

GBR

XLDnaute Junior
Bonjour à tous,

Je tourne en rond sur ce problème de blocage de cellules....
Merci pour votre aide précieuse.

GBR:)
 

Pièces jointes

  • cellules.xls
    16.5 KB · Affichages: 49
  • cellules.xls
    16.5 KB · Affichages: 50
  • cellules.xls
    16.5 KB · Affichages: 47

Macpoy

XLDnaute Impliqué
Re : Blocage des cellules en ecriture

bonsoir le forum, GBR,
je vous apporte un petit classeur de l'excellent Thierry@,
qui pourrait être une source d'idée.
@plus
 

Pièces jointes

  • Protection_Cellule_par_Macro_Evennementielle_Demo.XLD.zip
    21.4 KB · Affichages: 40
  • Protection_Cellule_par_Macro_Evennementielle_Demo.XLD.zip
    21.4 KB · Affichages: 38
  • Protection_Cellule_par_Macro_Evennementielle_Demo.XLD.zip
    21.4 KB · Affichages: 37

Fred0o

XLDnaute Barbatruc
Re : Blocage des cellules en ecriture

Bonsoir GBR, MacPoy,

Tu sélectioones toutes les cellules du classeur, puis click droit - Format de Cellule - Protection. Puis décocher la case Verrouillée <OK>. Ensuite, tu sélectionnes uniquement les celluiles jaune et tu coches la case verrouillée.
Pour finir, Menu "Outils" - Protection - Protéger la feuille. Là, décocher la case "Sélectionner les cellules verrouileés" - <OK>.

Tu ne devrais plus pouvoir modifier les cellules en question.
A+
 

Macpoy

XLDnaute Impliqué
Re : Blocage des cellules en ecriture

re le forum, GBR
bonsoir Fred0o,
pour choisir une plage à proteger plutot qu'une cellule de l'exemple,
il suffit de changer ça :
'If ActiveCell.Address() = "$G$11" Or ActiveCell.Address() = "$G$13" Then

par (dans votre cas) :

If Not Intersect(Target, Range("E7:j2115 ")) Is Nothing Then

@plus
 

Discussions similaires

Réponses
2
Affichages
140