Mot de passe inputbox

[bbobb]

Bonjour a tous,
J'ai un fichier utilisé par plusieurs personnes. Lorqu'ils l'utilisent, ils doivent saisir un mot de passe dans une inputbox.
Mais le mot de passe se voit.
Est_il possible de faire apparaitre des **** à la place des caractères ?

Merci d'avance pour aide

Bbobb

 

[Compte Supprimé 979]

Re : Mot de passe inputbox

Bonjour bbobb

Sujet maintes fois abordé, il faut utiliser un Userform de préférence, sinon avec API windows
merci de faire une recherche

A+

 

[youky(BJ)]

Re : Mot de passe inputbox

Bonjour Bbobb,
Il faut en passer par un userform
Mettre un textbox avec propriété PassewordChar = *
Bruno

 

[JBARBE]

Re : Mot de passe inputbox

Bonsoir,

ATTENTION

Si la macro contenant le Mot de Passe est accessible et donc visible par tous :

Ce mot de passe en VBA ne sert à rien !

A+

 

[JBARBE]

Re : Mot de passe inputbox

Néanmoins voici un test avec InputBox à adapter :

Sub TestPW()
    Dim Message, Title, Default, MyValue
    ' Définit le message.
    Message = "Entrez un mot de passe"
    Title = "Démo de protection simple"    ' Définit le titre.
    Default = "*****"
    ' Affiche le message, le titre et la valeur par défaut et
    ' lance la macro Test si le mot de passe est MyPW
    For i = 1 To 3
    If InputBox(Message, Title, Default) = "MyPW" Then
    MsgBox " Mot de passe correct"
    Exit Sub
    Else
    MsgBox " Mot de passe incorrect il vous reste" & "  " & i - 3 & "essai(s)sur 3 essais"
    End If
    Next i
    End Sub