Microsoft 365 Mot de passe masqué (David)

Usine à gaz à dit:

Bonjour à toutes et à tous 🙂
Regarde la pièce jointe 1126191

J'avais "récupérer" le fichier de David pour masquer mon mot de passe à la saisie.
ça fonctionne super bien mais (lol comme d'habitude😉) j'aimerais une p'tite modification "de confort" :
La validation se fait au clic sur le bouton "OK".
Est-il possible que la validation se fasse au clic sur "Entrée" ?

J'ai fait des tests et des recherches mais je n'arrive pas à adapter ce que j'ai trouvé, y compris sur notre Forum.
Auriez-vous le bon code ?
Je joins le fichier test.
Amicalement,
lionel,

Cliquez pour agrandir...

laurent950 à dit:

Bonjour @Usine à gaz, @cp4 , @fanfan38

je vous souhaite une très bonne année 2022 en ce premier jour de l'année ainsi que tous les membres du Forum Excel-Downloads.

Voici la solution Lionel : (J'ai commenté) et mis les deux solutions en fonction de votre clavier

il y a deux touche entrée, celles du pavé numérique et celle du clavier.

donc dans votre module de ThisWorkbook

il faut modifier votre code par celui-ci

VB:

Private Sub Workbook_Open()
  Sheets("base").Visible = 2
  'UserForm1.Show
  ' ajouter
  ' Enter soit "{ENTER}" provoquera l'appel de la macro (Entrée (pavé numérique))
   'Application.OnKey "{ENTER}", "Nom_de_la_macro"
   'Application.OnKey "{ENTER}", "Module1.Test"
   ' Enter soit "~" (caractére tilde) provoquera l'appel de la macro (Entrée (sans pavé numérique))
   Application.OnKey "~", "Module1.ShowUsf"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' "{ENTER}" redevient la touche d'édition (Entrée (pavé numérique))
' Soit Reset
    'Application.OnKey "{ENTER}"
    'Application.OnKey "{ENTER}"
' "~" (caractére tilde) redevient la touche d'édition (Entrée (sans pavé numérique))
    Application.OnKey "~"
End Sub

Ensuite la macro qui est associer a la touche enter est a créer donc a rajouter dans votre module1
Copier ce code dans le module1

Code:

Public Sub ShowUsf()
    UserForm1.Show
End Sub

Enregistrer et fermer votre fichier.
Ouvrer votre fhicher
cliquer sur la touche entrer
l'userform s'affiche avec le entrer du clavier

Les explications liée a ces raccourcis
Voici les liens pour l'aide :

Méthode Application.OnKey (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Puis c'est deux la (assez intéressants pour comprendre)

Macro et touche entrée [Forums - Espace Débutants] : myDearFriend! Excel Pages

Utilitaires, tutoriels et astuces Excel - VBA par myDearFriend!

www.mdf-xlpages.com

Assigning Function Keys to excel macros

I've seen the following example code suggested to assign function keys to excel macros but regardless of where I try to copy the code (module, workbook, worksheet), in it's entirety, the original

stackoverflow.com

Cliquez pour agrandir...