Cacher le mot de passe VBA "*"

Résolu

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

Afficher la suite

2 réponses

Réponse 1 / 2
NHenry Messages postés 15235 Date d'inscription Statut Modérateur Dernière intervention 387

Il te faudra faire un Userform avec un champ texte et avec PasswordChar à "*"
0
1. 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
2. NHenry Messages postés 15235 Date d'inscription Statut Modérateur Dernière intervention 387
  
  non pas avec une InputBox.
  
  0
3. 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
Réponse 2 / 2
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

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
1. 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
  1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > 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
2. lynda789456 Messages postés 245 Statut Membre
  
  Ok merci beaucoup pour votre aide, c gentil monsieur :)
  Bonne journée !
  
  0

Cacher le mot de passe VBA "*"

2 réponses

Discussions similaires

Newsletters