Cacher le mot de passe VBA "*"

Résolu
lynda789456 Messages postés 245 Statut Membre -  
lynda789456 Messages postés 245 Statut Membre -
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

NHenry Messages postés 15479 Statut Modérateur 366
 
Il te faudra faire un Userform avec un champ texte et avec PasswordChar à "*"
0
lynda789456 Messages postés 245 Statut Membre
 
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 15479 Statut Modérateur 366
 
non pas avec une InputBox.
0
lynda789456 Messages postés 245 Statut Membre
 
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
f894009 Messages postés 17413 Statut Membre 1 715
 
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 245 Statut Membre
 
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 17413 Statut Membre 1 715 > lynda789456 Messages postés 245 Statut Membre
 
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 245 Statut Membre
 
Ok merci beaucoup pour votre aide, c gentil monsieur :)
Bonne journée !
0