Sujet Précédent Sujet Suivant

Cacher le mot de passe VBA "*"

Résolu/Fermé
lynda789456 Messages postés 225 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 22 novembre 2016 - Modifié par lynda789456 le 2/05/2016 à 23:22
lynda789456 Messages postés 225 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 22 novembre 2016 - 3 mai 2016 à 12:44
Bonsoir tous le monde !
SVP je veux que mon mot de passe soit masqué en étoiles via ce code, comment faire svp ?? 
Private Sub Workbook_beforePrint(Cancel As Boolean)
Secret = "essai"
Question = InputBox("Mot de passe pour l'impression ?")

If Question <> Secret Then
  MsgBox ("Impression Interdite")
  Cancel = True
End If
End Sub

Merci d'avance :)

2 réponses

Réponse 1 / 2
NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
2 mai 2016 à 23:28
Il te faudra faire un Userform avec un champ texte et avec PasswordChar à "*"
0
lynda789456 Messages postés 225 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 22 novembre 2016
2 mai 2016 à 23:32
J'ai utilisé le InputBox, est ce qu'il y'a un moyen pour masquer le mot de passe en étoiles svp ?si oui comment svp ?
0
NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
2 mai 2016 à 23:33
non pas avec une InputBox.
0
lynda789456 Messages postés 225 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 22 novembre 2016
2 mai 2016 à 23:36
quel est le code vba dont il permet d'interdir à enregistrer et à imprimer avec des mots de passe en "*", semblable au mien svp ?
Je veux interdire les utilisateurs à enregistrer et imprimer !
0
Réponse 2 / 2
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
3 mai 2016 à 09:45
Bonjour a tous,

Inputbox avec etoile pour entrer mot de passe

https://www.cjoint.com/c/FEdhRVvoM7f

ai modifie l'original pour entree vide, clic croix , clic annuler

code original ici: http://www.office-loesung.de/ftopic74191_0_0_asc.php
0
lynda789456 Messages postés 225 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 22 novembre 2016
3 mai 2016 à 11:43
La première solution m'a arrangé, merci beaucoup :)
STP je peux savoir pourquoi on a insérer module à part et workbook à part stp ?
Cordialement :)
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > lynda789456 Messages postés 225 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 22 novembre 2016
3 mai 2016 à 12:21
Re,

Private Sub Workbook_beforePrint(Cancel As Boolean)
et
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

sont lies aux conditions que vous avez demandees, impression et sauvegarde

le module MMDP_InputBox_Etoile, c'est lui qui, par sa programmation, vous permet d'afficher des etoiles a la place des caracteres dans une inputBox normale en utilisant des API Windows (fonctions)
(si vous voulez en savoir plus, https://fr.wikipedia.org/wiki/Windows_API
0
lynda789456 Messages postés 225 Date d'inscription mercredi 24 février 2016 Statut Membre Dernière intervention 22 novembre 2016
Modifié par lynda789456 le 3/05/2016 à 12:44
Ok merci beaucoup pour votre aide, c gentil monsieur :)
Bonne journée !
0

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses
question pix mot caché
aorum10 -
astrid-g85 -

6 réponses
Trouver le mot réellement écrit en lettres capitales PIX
ETHAN -
kirikou -

4 réponses