XL 2019 masquer mot de passe à l'écriture

[Tioneb_h]

bonjour,

je voudrais masquer le mot de passe "1234" à l'écriture du genre avec des "gros points" ou des "étoiles"... possible ?
voici mon code :

Private Sub Worksheet_Activate()

MDP = InputBox("Tapez le Mot de Passe autorisant l'accès en lecture & écriture.", "Mot de Passe ?", "")

If MDP <> "1234" Then

    Sheets("Feuil1").Select
Else
    Sheets("Feuil3").Visible = True
    Sheets("Feuil3").Select
    Sheets("Feuil7").Visible = False

End If

End Sub

merci d'avance,
Ben

 

[Staple1600]

Bonjour

Plein d'exemples à ce sujet dorment dans les archives du forum
Il suffit de chercher

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

Ou de regarder en bas de la page dans Discussions similaires
(ce que je viens de faire
Et qu'y trouve-t-on ?
Ceci

Masquer les caractères dans un inputbox

Bonsoir, J'ai redige un code qui me permet d'ouvrir mon classeur en introduisant un mot de passe dans un inputbox comme suit: Private Sub bdd_Click() mdp = InputBox("Entrer le mot de pase de consultation : ", "Accés ficher FA") If mdp =...

www.excel-downloads.com

 

[Tioneb_h]

Bonjour

Plein d'exemples à ce sujet dorment dans les archives du forum
Il suffit de chercher

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

Ou de regarder en bas de la page dans Discussions similaires
(ce que je viens de faire
Et qu'y trouve-t-on ?
Ceci

Masquer les caractères dans un inputbox

Bonsoir, J'ai redige un code qui me permet d'ouvrir mon classeur en introduisant un mot de passe dans un inputbox comme suit: Private Sub bdd_Click() mdp = InputBox("Entrer le mot de pase de consultation : ", "Accés ficher FA") If mdp =...

www.excel-downloads.com

 

[Usine à gaz]

Bonjour Tioneb_h, Bonjour Staple1600, Bonjour le Forum
Peut-être que ce fichier vous sera utile ?
lionel

 

[patricktoulon]

Bonjour
le vrai inputbox avec les caractères masquer (utilisation des api)

 

[Usine à gaz]

Bonjour Patrick :

lionel