Cacher le mot de passe avec des *

Fermé
Mars - Modifié le 28 févr. 2018 à 16:07
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 28 févr. 2018 à 16:05
Bonjour,
Voici la formule que j'utilise, cependant lorsque je met le mot de passe il apparait, est ce que vous pourriez me dire quelle formule je doit ajouter dans ma formule existante afin que le mot de passe soit des * au lieu des caractères--Merci

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Protéger toutes les feuilles", "")
For Each i In Worksheets
i.Protect Password:=Motdepasse
Next
End Sub



2 réponses

f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678
28 févr. 2018 à 15:45
0
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 3 291
Modifié le 28 févr. 2018 à 16:17
Bonjour
plutôt d'utiliser un inputbox, fais juste un userform et
dans un textbox (activeX) utilise la propriété "passwordchar" et inscris *

Par exemple


0