cacher mot de passe

[kinel]

bonjour le forum

afin de cacher une feuille je la rend invisible puis je protège le classeur

pour rendre visible cette feuille je passe par cette macro

Sub déprot()
'
'visualise les notes
Dim mdp
On Error GoTo ErrorHandler
monmdp = InputBox("Mot de passe : ")
ActiveWorkbook.Unprotect (monmdp)
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Select
Exit Sub
ErrorHandler:
MsgBox ("Le mot de passe entré est erronné")
Exit Sub
End Sub

ça fonctionne très bien mais le soucis est que quand on tape le mot de passe il apparaît en clair sur l'écran
si d'autres yeux sont sur l'écran le mot de passe sera rapidement connu de tous
existe t il un moyen de rendre ce mot de passe invisible à l'écran ou le faire apparaître sous forme de ***** ?

Merci de votre aide

 

[MJ13]

Re : cacher mot de passe

Bonjour Kinel

Dans un Userform, sur un textbox, on a la possibilité d'utiliser le PasswordChar que tu pourras mettre avec *.

 

[fenec]

Re : cacher mot de passe

bonjour le forum ,kinel MJ13
une solution que l'on m'avait proposé

 

[kinel]

Re : cacher mot de passe

j'ai essayé ça dans tous les sens, pas moyen de le faire fonctionner

j'utilise un autre userform pour débloquer les menus, l'idéal serait de pouvoir transposer ce code juste pour déprotéger le classeur et ouvrir la feuil3
mais là je ne suis pas assez compétent
voici ce code


Sub OK_Click()
If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
If Identification.TextBox1.Value = "ml" Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True
ActiveSheet.ScrollArea = "A1:N43"
Application.DisplayFullScreen = True
With Application
.CommandBars("Worksheet Menu Bar").Enabled = False

With .CommandBars("Standard")
.Enabled = False
.Visible = False

End With
End With
End If
Identification.Hide

Exit Sub
End If
If Application.CommandBars("Worksheet Menu Bar").Enabled = False Then
If Identification.TextBox1.Value = "ml" Then
Application.DisplayFullScreen = False
With Application
.CommandBars("Worksheet Menu Bar").Enabled = True

With .CommandBars("Standard")
.Enabled = True
.Visible = True

End With
End With
ActiveSheet.Unprotect
ActiveSheet.ScrollArea = ""
End If
Identification.Hide
Exit Sub
End If


End Sub

 

[MJ13]

Re : cacher mot de passe

Re, Bonjour Fenec

Intéressant le fichier de Fenec 🙂.

Voici un exemple à adapter, il faut aller dans les propriétés du textbox.

 

[kinel]

Re : cacher mot de passe

pour le code proposé par fenec (que je remercie de s'intéresser à mon problème ) j'ai un blocage sur cette ligne:

Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)

pour mj13 (que je remercie aussi)

cette partie là je l'ai sans problème, c'est surtout dans le code que je maîtrise moins

 

[Mytå]

Re : cacher mot de passe

Salut le forum

Pour le blocage, regarde le lien suivant : Faire confiance au projet Visual Basic

Mytå

 

[fenec]

Re : cacher mot de passe

re,
Comme l'a dit Myta il faut faire confiance a visual basic
Pour cela va dans la barre d'outils,macro,sécurité,éditeurs approuvés et cocher faire confiance a visual basic
Bonne continuation

 

[kinel]

Re : cacher mot de passe

ha oui cette fois c'est tout bon
ça fonctionne au poil

juste une question
si j'utilise ce classeur sur différentes machines, cette manoeuvre est elle à répéter ou est elle liée au classeur ?

merci encore à tous

kinel

 

[fenec]

Re : cacher mot de passe

Re,
Oui il faut activer visual basic sur chaque machine
Bonne continuation
Fenec

 

[kinel]

Re : cacher mot de passe

merci bonne soirée

kinel