cacher mot de passe

MJ13

XLDnaute Barbatruc

• 7 Septembre 2012

• #2

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 *.

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 7 Septembre 2012

• #3

Re : cacher mot de passe

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

 

Pièces jointes

• masquer mdp.xls

  31.5 KB · Affichages: 86

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 7 Septembre 2012

• #4

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 7 Septembre 2012

• #5

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.

 

Pièces jointes

• MDPUSFPasswordChar.xls

  31 KB · Affichages: 76

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 7 Septembre 2012

• #6

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

 

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 7 Septembre 2012

• #7

Re : cacher mot de passe

Salut le forum

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

Mytå

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 7 Septembre 2012

• #8

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

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 7 Septembre 2012

• #9

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

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 7 Septembre 2012

• #10

Re : cacher mot de passe

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

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 7 Septembre 2012

• #11

Re : cacher mot de passe

merci bonne soirée

kinel

 

Vote positif 0 Vote négatif