Cacher mot de passe lors de l'écriture

Bonjour le Forum,

J’ai trouvé une macro pour rendre invisible une feuille Excel.

J’ai la possibilité d’ouvrir cette macro quand le fichier est déjà ouvert (feuille cachée) par ctrl « m ».

Serait-il possible que l’on ne voit pas ce mot de passe quand je le tape, ou existe-t-il une autre macro pour remplacer celle-ci.

Si possible ne pas utiliser les propriétés de la feuille dans VBA Project

Merci d’avance pour votre aide.

Sub Workbook_Open()

Dim mdp As String, testmdp As String

mdp = "test"

reco:

testmdp = InputBox("Introduisez le mdp pour passer en mode administrateur")

If testmdp = mdp Then

Sheets("Data").Visible = True

ElseIf testmdp <> "" Then

MsgBox "Mot de passe erroné" & Chr(10) & "Réessayez pour passer en mode Administrateur" & Chr(10) & "ou laissez vide pour rester en mode normal"

GoTo reco

End If

End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("Data").Visible = xlVeryHidden

End Sub

Bonjour,

faire un userform avec un textbox dont la propriété PasswordChar est à True.

eric

Bonjour

Apparamment cela existe mais c'est chaud ....

Lien en allemand http://www.office-loesung.de/ftopic74191_0_0_asc.php

Dans le cas contraire on peut utiliser un Userform.... Peux-tu nous transmettre ton fichier ?

Bonsoir eriiic,

Une fois de plus tu es de très bon conseil.

J'ai créer un UserForm et cela fonctionne.

A bientôt sur la toile.

et1000lio

Merci pour ta proposition.

Bonne soirée à tous les deux