Bonsoir,
J'ai redige un code qui me permet d'ouvrir mon classeur en introduisant un mot de passe dans un inputbox comme suit:
Private Sub bdd_Click()
mdp = InputBox("Entrer le mot de pase de consultation : ", "Accés ficher FA")
If mdp = ThisWorkbook.Worksheets("config").Range("E2").Value Then
Unload Me
ThisWorkbook.Application.Visible = True
End If
End Sub
Est ce que y a t il un moyen qui me permet de masquer les caractères et les remplacer par des étoiles **** ?
Merci
J'ai redige un code qui me permet d'ouvrir mon classeur en introduisant un mot de passe dans un inputbox comme suit:
Private Sub bdd_Click()
mdp = InputBox("Entrer le mot de pase de consultation : ", "Accés ficher FA")
If mdp = ThisWorkbook.Worksheets("config").Range("E2").Value Then
Unload Me
ThisWorkbook.Application.Visible = True
End If
End Sub
Est ce que y a t il un moyen qui me permet de masquer les caractères et les remplacer par des étoiles **** ?
Merci