Remplacer lettres et chiffres étoiles

Bonjour à tous,

j'ai un fichier protégé pour la sauvegarde par mot de passe. Mon problème est est que lors de la saisie du MDP celui-ci est visible.

est-il possible de le remplacer par des (*) lors de la frappe?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim Utilisateur As String

    Utilisateur = InputBox("Indiquez votre nom d'utilisateur !", "Authentification utilisateur")

    Select Case Utilisateur

        Case "Nom1", "Nom2", "Nom3", "Nom4"  '<--- les noms pour lesquels l'enregistrement est autorisé

        Case Else

            MsgBox "Vous n'êtes pas autorisé à enregistrer les modifications que vous avez apporté ! " _
            & vbNewLine & vbNewLine _
            & "Ce fichier et EXCEL vont être fermer. ", vbOKOnly + vbCritical, "Fermeture du fichier"

            Cancel = True

            Windows.Application.Quit

    End Select

End Sub

je tiens a remercier le forum pour toute l'aide déjà apporté.

Bonsoir pskyl,

Une piste peut-être ici: https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=60439&start=

Cordialement,

Merci pour cette aide efficace.

Je pense vraiment qu'une de mes meilleures trouvailles sur le Web est ce forum. c'est génial de prendre sur votre temps pour aider les autres.

Encore merci à tous ceux qui animent ce forum.

bonjour

tu peux eventuellent utiliser une police de carracteres qui le permet ( je ne sais plus laquelle)

et de glisser ça avec" font "

cordialement

Merci tulipe_4