Masquer mot de passe a la saisie

Salut,

J'ai un fichier excel qui envoie des mail via VBA.

Excel me demande mon adresse et mon mot de passe, je voudrais, lors de la saisie du mot de passe que les caractères s'affichent en **** a la place des lettres.

Merci a vous

Function GetSMTPServerConfiguration() As Object

Dim Cdo_Config As New CDO.Configuration
Dim Cdo_Fields As Object

Set Cdo_Fields = Cdo_Config.Fields
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.gmail.com"
.Item(cdoSMTPServerPort) = 465
.Item(cdoSendUserName) = InputBox("Veuillez saisir votre identifiant")
.Item(cdoSendPassword) = InputBox("Veuillez saisir votre mot de passe gmail")
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSMTPUseSSL) = True
.Update
End With

Set GetSMTPServerConfiguration = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function

Bonjour, bonjour !

Excel ne demande rien, c'est le programme qui a été conçu ainsi au lieu de l'écrire en dur dans le code !

Pas possible d'afficher des étoiles avec la fonction utilisée dans le code, rien qu'en consultant son aide …

Il faudrait en passer par un Userform en activant la propriété PasswordChar d'un contrôle TextBox.

Merci pour ta réponse.

Je vais suivre ta piste, si je rencontre des soucis je reviens demander de l'aide ^^

Bonjour,

ayant été moi-même confronté au problème, j'ai enfin trouvé la solution.

Il faut intégrer un module (cf pièce jointe) et nommer les "InputBox" en "InputBoxDK"

En espérant que cela solutionne ton problème.

Le mot de passe : abracadabra

Salut,

Je te remercie pour cette solution. Je vais bientôt la tester de que j'aurais un peut de temps.

J'ai visualisé le code et je pense que c'est jouable, il reste plus qu'a!!