Solution pour mot de passe

[chti59xcel]

Bonjour je vous transmet mon code VBA qui permet d'accéder à une feuille excel par mot de passe. Je souhaiterai rendre mon code invisible lorsque je le tape au clavier et qu'apparaisse des étoiles à la place, SVP. Merci pour le coup de main, cordialement.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.EnableCancelKey = xlDisabled
If Sh.Name = "Privé" Then
ActiveWindow.Visible = False
Dim MotDePasse As String
MotDePasse = InputBox("Entrez votre mot de passe.", _
"Mot de passe requis")
If Not MotDePasse = "toto" Then
MsgBox "Le mot de passe saisi est incorrect !!", _
vbOKOnly + vbInformation, "Mot de passe incorrect"
ThisWorkbook.Sheets("Sommaire").Activate
End If
Windows("Feuilles de congés et des heures de récupération Personnels Péri Scolaire.xls").Visible = True
End If
End Sub

 

[fanfan38]

Re : Solution pour mot de passe

Bonjour
Avec un input ce n'est pas possible par contre avec une boite de saisie OUi
Ci joint une appli qui peur repondre à ta question...
le mot de passe: essai
une feuille masquée a garder. En k11 le mot de passe ecrit blanc sur blanc
A+ François

 

[myDearFriend!]

Re : Solution pour mot de passe

Bonsoir chti59xcel, fanfan38,

En complément de la solution proposé par fanfan38, tu peux peut-être aussi jeter un oeil sur le fil de discussion Mot de Passe crypté

Cordialement,

Nb : fanfan38, si tu pouvais éviter de poster dans le forum des fichiers qui éjectent de l'application Excel sans prévenir (Application.Quit) ça serait sympa... Merci.