Cacher le mot de passe VBA "*"

Résolu
lynda789456 Messages postés 225 Date d'inscription   Statut Membre Dernière intervention   -  
lynda789456 Messages postés 225 Date d'inscription   Statut Membre Dernière intervention   -
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 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
Il te faudra faire un Userform avec un champ texte et avec PasswordChar à "*"
0
lynda789456 Messages postés 225 Date d'inscription   Statut Membre Dernière intervention  
 
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 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
non pas avec une InputBox.
0
lynda789456 Messages postés 225 Date d'inscription   Statut Membre Dernière intervention  
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention  
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > lynda789456 Messages postés 225 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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
Trouver le mdp administrateur freebox ?
Cousyn -
Pierr10 -

1 réponse