Remplacer dans une inputbox la saisie par des * (Password) ?

[Creepy]

Bonsoir à tous,

Je fais une verif par mot de passe. Comment faire pour que dans ma inputbox il m'affiche des * à la place des caractères ?

Je vais pas créer une userform pour une simple verif de password, avec les boutons, les zones de saise etc ...

Merci d'avance

Creepy

 

[Bernard]

Bonjour Creepy

Je vois que le pb de Fermo te casse la tête aussi.

Voilà la réponse que je lui avait faite par email :

La propriété PasswordChar n'est pas valide pour une inputbox mais pour une textbox.

Je te propose de prendre comme mot de passe des étoiles " *** ", ce qui égarera le curieux éventuel !

J'ai ajouté à la macro de base la condition "feuille non protégée" :

Private Sub CommandButton2_Click()

Dim Message, Title, Default, MyValue

If ActiveSheet.ProtectContents = False Then
MsgBox ("La feuille n'est pas protégée !")
Else
Message = "Rentrez le mot de passe" 'Message
Title = "Ôter la protection de la feuille"
MyValue = InputBox(Message, Title, Default)
If MyValue = "******" Then
Application.CommandBars("Worksheet Menu Bar").Enabled = False ' False pour eviter les pb pendant le réglage !
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:="******"
End With
Else
MsgBox ("Mot de passe incorrect !")
End If
End If
End Sub

Mais si une grosse tête du forum dénoue l'énigme, je suis preneur lol

A+

Bernard