Cacher le mot de passe avec des *

Mars -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
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



A voir également:

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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