Verrouiller une plage de cellules

Résolu/Fermé
amar_7423 Messages postés 29 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 23 juin 2024 - 7 mai 2021 à 18:16
amar_7423 Messages postés 29 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 23 juin 2024 - 9 mai 2021 à 01:56
Bonjour à tous.
J'ai un fichier de notes d'élèves.
Après saisie de toutes les notes par un utilisateur, souhaiterais que les notes soient verrouillées pour empêcher toute modification ultérieure par ce même utilisateur.
mais la modification sera faite uniquement par l'administrateur du fichier.
Est-ce possible avec VBA?
J'aime beaucoup VBA bien que j'ai des limites réelles en programmation VBA.
Merci de votre aide.

4 réponses

JCB40 Messages postés 2924 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 26 septembre 2024 461
Modifié le 7 mai 2021 à 18:56
Bonjour,

Un exemple avec macros et boutons
https://www.cjoint.com/c/KEhq4c1aPHG
Cordialement



0
amar_7423 Messages postés 29 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 23 juin 2024
Modifié le 7 mai 2021 à 20:06
Bonsoir JCB40,
Bien reçu. mais si je clique à nouveau sur le bouton "valider les notes" alors une boite de dialogue affiche: Erreur d'exécution '1004' impossible de définir la propriété Locked de la classe Range
Pouvez-vous corriger cela?
Autre problème: pourquoi toute la feuille est verrouillée après validation des notes et non seulement la plage de notes?
Merci de la diligence.
0
JCB40 Messages postés 2924 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 26 septembre 2024 461
8 mai 2021 à 10:31
Bonjour amar 7423
Ton fichier modifié
https://www.cjoint.com/c/KEiiDr8bq7G
Il faut savoir que pour que le verrouillage d'une plage soit efficace ,il faut protéger la feuille
Cordialement
0
amar_7423 Messages postés 29 Date d'inscription samedi 20 février 2021 Statut Membre Dernière intervention 23 juin 2024
9 mai 2021 à 01:56
Bonsoir JBC40
Merci beaucoup. Problème résolu.
A bientôt.
0