Vous êtes actuellement hors ligne, en attente de reconnexion à Internet.

Protéger le document par mot de passe invisible à l'écran

Ancien nº de publication de cet article : F00653
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.
Symptômes

Est-il possible de saisir un mot de passe associé à la commande "Protéger
le document" du menu "Options" sans que ce mot de passe s'affiche à
l'écran ?


Résolution

Oui, il suffit de recréer la boîte de dialogue de la commande "Protéger
le document" du menu "Options" à l'aide de Dialog éditor.

Affectez la valeur 1 à la taille de la zone d'entrée. Pour gérer le mot
de passe saisi, la protection et la déprotection du document, vous devez
ensuite définir une macro semblable à celle indiquée dans l'exemple
ci-dessous. Les noms "dial" et "dial2" correspondent aux noms des grilles
de description des boîtes de dialogue ("dial" est destiné à la saisie du
mot de passe ; "dial2" permet de confirmer ce dernier).

La macro "password" insère la commande "Protéger en aveugle" dans le menu
"Options", la macro "dépassword" insère la commande "Oter la protection
aveugle" dans le menu "Options" et la macro "suppass" supprime la
commande insérer.

password
=AJOUTER.COMMANDE(1;6;L(14)C(2):L(14)C(5))
=RETOUR()

dépassword
=AJOUTER.COMMANDE(1;6;L(11)C(2):L(11)C(5))
=RETOUR()

suppass
=SUPPRIMER.COMMANDE(1;6;14)
=RETOUR()

Macro principale de protection en aveugle. Avec la sous-macro
"pass_loop()", vous pouvez saisir en aveugle le mot de passe et de le
confirmer. Si la confirmation est correcte, la macro "verrou()" protège
le document et remplace la commande "Protéger en aveugle" par la commande
"Oter la protection aveugle". Le mot de passe s'inscrit dans la dernière
cellule du document actif.

pass =ECRAN(FAUX)
=pass_loop()
=SI(n<>nc;pass_loop();)
=verrou()
=ECRAN(VRAI)
=RETOUR()

pass_loop
=ACTIVER("feuil1")
=ZONE.DE.DIALOGUE(dial)
n=L(-24)C(5)
=ZONE.DE.DIALOGUE(dial2)
nc=L(-26)C(14)
=RETOUR()

verrou

=SELECTIONNER("L16384C256")
=FORMULE(n)
=TOUCHES(n)
=TOUCHES("~")
=PROTEGER.DOCUMENT?(VRAI;FAUX)
=SELECTIONNER("L1C1")
=ECRAN(VRAI)
=suppass()
=dépassword()
=RETOUR()

La macro "dépass()" vérifie que le mot de passe est identique à celui qui
est inscrit dans la dernière cellule du document. Si tel est le cas, elle
déprotège le document.

dépass
=ACTIVER("feuil1")
=ZONE.DE.DIALOGUE(dial)
=ECRAN(FAUX)
n=L(-58)C(5)
=SELECTIONNER("L16384C256")
np=CELLULE("contenu")
=TANT.QUE(n<>np)
=saisie_pass()
=SUIVANT()
=TOUCHES(n)
=TOUCHES("~")
=PROTEGER.DOCUMENT?(FAUX;FAUX)
=SELECTIONNER("L1C1")
=ECRAN(VRAI)
=suppass()
=password()
=RETOUR()
Propriétés

ID d'article : 450653 - Dernière mise à jour : 08/31/1994 00:00:00 - Révision : 1.0

Microsoft Excel 2.10c

  • macro KB450653
Commentaires