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

Exclusion de responsabilité du contenu obsolète de la base de connaissances

Cet article a été rédigé sur les produits pour lesquels Microsoft n’offre plus aucune prise en charge. Par conséquent, cet article est proposé « 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 : 31 août 1994 - Révision : 1

Commentaires