Microsoft 365 Mettre des étoiles à la place des caractères

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juillet 2020

• #2

Bonsoir Dubarre,
Pas de solution à ma connaissance avec un Inputbox, uniquement avec un Uesrform.

Mot de passe inputbox

Bonjour a tous, J'ai un fichier utilisé par plusieurs personnes. Lorqu'ils l'utilisent, ils doivent saisir un mot de passe dans une inputbox. Mais le mot de passe se voit. Est_il possible de faire apparaitre des **** à la place des caractères ? Merci d'avance pour aide Bbobb

www.excel-downloads.com

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juillet 2020

• #3

Bonjour dubarre, sylvanu,

Si l'on aime les usines à gaz on peut utiliser les API Windows pour mettre des étoiles dans l'InputBox.

Voyez les fichiers joints pour Excel 32 bits et pour Excel 64 bits.

https://www.excel-downloads.com/thr...c-etoiles-dans-linputbox.233509/#post-1491489

A+

 

Pièces jointes

• InputBox 32 bits.xlsm

  23.9 KB · Affichages: 30
• InputBox 64 bits.xlsm

  25.1 KB · Affichages: 28

Vote positif 0 Vote négatif

Solution

dysorthographie

XLDnaute Accro

• 8 Juillet 2020

• #4

Bonjour, dans un UserForm entre le code suivant

VB:

Public Function InputBox() As String
Me.Show vbModal
InputBox = Me.TextBox1
Unload Me
End Function

Private Sub CommandButton1_Click()
Me.Hide
End Sub

et tu l'appel com ça

Code:

Sub test()
MsgBox InputBox.InputBox
End Sub

 

Pièces jointes

• InputBox.xls

  48 KB · Affichages: 29

Vote positif 0 Vote négatif