Verrouillage automatique des cellules dans excel
Résolu
arthurvoirin
Messages postés
25
Date d'inscription
Statut
Membre
Dernière intervention
-
félix -
félix -
Bonjour,
j'aurais voulu savoir si quelqu'un aurait la solution avec une formule ou autre technique pour verrouiller les cellules a mesures qu'elles se remplissent.
Je vous remercie d'avance,
Arthur.
j'aurais voulu savoir si quelqu'un aurait la solution avec une formule ou autre technique pour verrouiller les cellules a mesures qu'elles se remplissent.
Je vous remercie d'avance,
Arthur.
4 réponses
-
Bonjour
Par formule pas possible, il faut passer par une macro en VBA mais c’est dangereux car la macro sera déclenchée par la touche entrée et plus moyen de corriger si on s'est trompé
Est ce ce que tu veux malgré tout ?
Cdlmnt
Via
-
Bonjour
Il faudra passer par une macro
http://www.cjoint.com/c/GIDpbpn7KjB
Cdlmnt-
Bonjour,
en essayant de modifier le code, je me suis aperçu qu'il m'était impossible de le changer; que cela soir la plage, que de le combiner avec une autre macro... Quand j'essai de changer la plage, par exemple A1:D20 à A1:E20, excel me répond que la feuille est verrouillée et qu'il m'est alors impossible de modifier les cellules de E1 à E20...
Aussi, lorsque j'essai d'integrer le code avec un autre, la feuille se verrouille tout de suite après avoir entré une valeur et il n'est alors plus possible d'entrer quelque chose
Merci d'avance,
Arthur
-
-
Quand j'essai de changer la plage, par exemple A1:D20 à A1:E20, excel me répond que la feuille est verrouillée et qu'il m'est alors impossible de modifier les cellules de E1 à E20...
La première chose à faire c'est de déprotéger "à la main" la feuille (mot de passe MDP)
Dans mon exemple, seuloe la plage A1:D20 est déverrouillée au départ.
la feuille se verrouille tout de suite après avoir entré une valeur et il n'est alors plus possible d'entrer quelque chose
C'est ce que tu as demandé non ? d'ailleurs via55 (que je salue au passage)
En fait, le verrouillage d'une cellule ne fonctionne que si la feuille est protégée
Cdlmnt -
Re,
1) Selectionner toutes les cellules de la feuille (triangle en haut à gauche entre les barres de titres horizontale et verticale) - Format de cellule - Protection - Décocher Verrouillée
2) Protéger la feuille (Onglet Revision), éventuellement avec un mot de passe
3) ALT+F11 pour ouvrir l'éditeur VBA - Selectionner par double-clic la feuille sur laquelle agir dans arborescence à gauche - Copier et coller la macro ci-dessous dans la page et fermer l'éditeurPrivate Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Range(ActiveCell.Offset(-1, 0).Address).Locked = True ActiveSheet.Protect End Sub
Si la feuille a été protégée par un mot de passe indiquer ce mot de passe entre guillements après les instructions Unprotect et Protect :
ActiveSheet.Unprotect "toto"
Cdlmnt
Via-
-
Bonjour!
J'ai beau essayer avec la réponse de Via55 :
ALT+F11 pour ouvrir l'éditeur VBA - Sélectionner par double-clic la feuille sur laquelle agir dans arborescence à gauche - Copier et coller la macro ci-dessous dans la page et fermer l'éditeur
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Range(ActiveCell.Offset(-1, 0).Address).Locked = True
ActiveSheet.Protect
End Sub
J’arrive toujours pas verrouiller les cellules a mesures qu'elles se remplissent.
j'aurais aime avoir un conseil s'il vous plait.
déjà merci sincèrement. -
Bonjour BADIBA,
⚠ Utilise le code VBA suivant si tu as : bouton Office (= menu Fichier),
« Options Excel », « Options avancées », cette option décochée :
☐ Déplacer la sélection après validation
Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect ActiveCell.Locked = True ActiveSheet.Protect End Sub
---------------------------------------------------------
⚠ Utilise le code VBA suivant si tu as dans « Options avancées » :
☑ Déplacer la sélection après validation
Sens : Bas
Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect ActiveCell.Offset(-1).Locked = True ActiveSheet.Protect End Sub
Cordialement
-
-
-
