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

Numéro d'article: 450653 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F00653
Agrandir tout | Réduire tout

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

Numéro d'article: 450653 - Dernière mise à jour: mercredi 31 août 1994 - Version: 1.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 2.10c
Mots-clés : 
macro KB450653
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
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.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com