Bonjour à tous,

Dans ce code, le mot de passe est du texte se trouvant dans la cellule D58 de la feuille "Données", lorsque l'utilisateur le tape dans à l'ouverture du message, on voit clairement le mot frappé.
Est-il possible de le remplacer au moment de la frappe par des *
De plus, est-ce qu'il est possible également de remplacer le texte dans la cellule par des * tout en gardant sa valeur.
Par exemple, je tape "TOTO", ça devient "****" mais la valeur reste toujours "TOTO"
Merci par avance pour vos réponses

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Cmb_Ecrit_Click()
Dim REP As String
REP = InputBox("MOT DE PASSE", "Accés au tableau")
If REP = Sheets("Données").Range("D58").Value Then
ActiveSheet.Unprotect
    Range("D58").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End If
End Sub