XL 2021 Mettre un message d'erreur si les cellules ne sont pas verrouillées

[krolik serge]

Bonjour à tous ;

Je sollicite la bienveillance d'experts afin que lors de la fermeture d'un fichier il y ait un massage d'erreur si les cellules ne sont pas verrouillées.

Mon chef de service me demande de créer des colonnes avec mot de passes différents pour le remplissage des cellules suivant le formateur. J'ai réussi à créer ce profil.
Cependant il a peur que si un formateur oubli de le reverrouiller avant fermeture, un autre viendrait renseigner la cellule.

J'en appelle a votre aimable expertise afin de créer une alerte à la fermeture afin que la personne reverrouille la colonne.

J'adresse mes remerciements anticipés aux experts qui pourraient m'orienter en ce sens.

bien cordialement

 

[sylvanu]

Bonsoir krolik serge,
Pour tester si la colonne A est protégée, vous pouvez faire :

X = Columns(1).Locked

X vaut False si la colonne n'est pas protégée, sinon renvoie True.
Pour le message vous pouvez faire :

If Columns(1).Locked = False Then MsgBox "Pensez à protéger la colonne A."

 

[TooFatBoy]

Bonjour,

Si tu donnes un mot de passe différent à chaque personne et que le verrouillage est désactivé sur certaines cellules en fonction dudit mot de passe, aucune cellule de la feuille n'est déverrouillée donc pas besoin de reverrouiller avant de fermer le classeur.

 

[krolik serge]

Bonjour,

Si tu donnes un mot de passe différent à chaque personne et que le verrouillage est désactivé sur certaines cellules en fonction dudit mot de passe, aucune cellule de la feuille n'est déverrouillée donc pas besoin de reverrouiller avant de fermer le classeur.

Bonjour ;
En premier lieu merci pour votre aide.
Je vous prie de bien vouloir trouver en attaché un fichier exemple sans rapport au réel.
J'ai présenté un cas ou le formateur a oublié de reverrouiller sa colonne "B" avant de refermer le fichier partagé
bien cordialement

 

[krolik serge]

Bonsoir krolik serge,
Pour tester si la colonne A est protégée, vous pouvez faire :

X = Columns(1).Locked

X vaut False si la colonne n'est pas protégée, sinon renvoie True.
Pour le message vous pouvez faire :

If Columns(1).Locked = False Then MsgBox "Pensez à protéger la colonne A."

Bonsoir ;
En premier lieu, je vous adresse mes remerciements pour votre aide.
Il y aura plusieurs colonnes verrouillées avec différents MDP en rapport au différents formateurs.
Pourriez-vous avoir l'amabilité de m'indiquer la variable en fonction du nombre de colonnes s'il vous plaît.

Bien cordialement

S KROLIK

 

[TooFatBoy]

J'ai présenté un cas ou le formateur a oublié de reverrouiller sa colonne "B" avant de refermer le fichier partagé

J'ai ouvert le classeur et... désolé mais je ne comprends pas, toutes les cellules semblent protégées.
Comment le formateur a-t-il déverrouillée la colonne B (et uniquement la colonne B) ?

---

La proposition de #3 ne convient pas ?

 

[sylvanu]

Re,
Rien compris à votre fichier. Aucune macro pour le verrouillage. Donc pas grand chose à en tirer.

Pourriez-vous avoir l'amabilité de m'indiquer la variable en fonction du nombre de colonnes s'il vous plaît.

Là non plus rien compris.
Dans ce code on vérifie si les colonnes B et C sont protégées. Dans le cas contraire on émet un message.

If Columns("B").Locked = False Then MsgBox "Pensez à protéger la colonne Noms."
If Columns("C").Locked = False Then MsgBox "Pensez à protéger la colonne Prénoms."

 

[krolik serge]

J'ai ouvert le classeur et... désolé mais je ne comprends pas, toutes les cellules semblent protégées.
Comment le formateur a-t-il déverrouillée la colonne B (et uniquement la colonne B) ?

---

La proposition de #3 ne convient pas ?

Bonjour ;
Je vous adresse mes remerciements mais je n'avais pas été pertinent. En fait lorsque l'on referme le fichier, à l'ouverture la personne devra remettre son mot de passe pour réécrire. Le tuto que j'avais vu été plus efficace que je ne l'avais prévu.

Je vous prie de bien vouloir m'excuser. Grand merci à vous

bien cordialement

 

[krolik serge]

Re,
Rien compris à votre fichier. Aucune macro pour le verrouillage. Donc pas grand chose à en tirer.

Là non plus rien compris.
Dans ce code on vérifie si les colonnes B et C sont protégées. Dans le cas contraire on émet un message.

If Columns("B").Locked = False Then MsgBox "Pensez à protéger la colonne Noms."
If Columns("C").Locked = False Then MsgBox "Pensez à protéger la colonne Prénoms."

Bonjour ;
Je vous adresse mes remerciements mais je n'avais pas été pertinent. En fait lorsque l'on referme le fichier, à l'ouverture la personne devra remettre son mot de passe pour réécrire. Le tuto que j'avais vu été plus efficace que je ne l'avais prévu.

Je vous prie de bien vouloir m'excuser. Grand merci à vous

bien cordialement

 

[TooFatBoy]

En fait lorsque l'on referme le fichier, à l'ouverture la personne devra remettre son mot de passe pour réécrire. Le tuto que j'avais vu été plus efficace que je ne l'avais prévu.

C'était déjà bien expliqué au tout début, donc je crois qu'on a tous bien compris ce que tu veux faire.

Est-ce que le tutoriel que tu as vu utilisait des macros VBA ?

 

[krolik serge]

Bonsoir;
Non pas de code VBA. Juste une configuration d'Excel pour verrouiller des colonnes distinctement.

 

[TooFatBoy]

Ce soir je te posterai un classeur exemple qui correspond à ce que je te proposais en #3 (et peut-être à ton tuto).

Pas sûr que ça te convienne, mais tu regarderas et tu diras si ça te va ou pas.

 

[krolik serge]

Ce sera avec grand plaisir;
Un grand merci à vous pour votre aide.
Cordialement

 

[TooFatBoy]

N'oublie pas de regarder les autres propositions qui te sont faites ci-dessus, et de dire à leurs auteurs si ça fonctionne avec ton vrai classeur, et si ça te convient.


Sur ce, bonne nuit et à ce soir.

 

[TooFatBoy]

Ce soir je te posterai un classeur exemple qui correspond à ce que je te proposais en #3 (et peut-être à ton tuto).

Pas sûr que ça te convienne, mais tu regarderas et tu diras si ça te va ou pas.

En pièce jointe ledit classeur.