le pack 1 de @+Thierry

Fermo · 26 Janvier 2004

Bonsoir Thierry, j’ai trouvé dans ton pack 1 une macro pour faire ma fameuse feuille avec entrée et mot de passe.

Cela fonctionne superbement bien, mais le mot de passe ne s’efface pas après être rentrée dans la dite feuille ?

Peux tu m’indiquer ou je peux mettre un Delette ou autre.

Merci à vous salutations Fermo

Private Sub Variable_Click()

UserFormPass.Show ' va demander un mot de passe

End Sub

Option Explicit

Private Sub UserForm_Initialize()

PasDeCroix Me

TextBox1.Value = " "

End Sub

Private Sub CommandButton1_Click()

If TextBox1.Value = "helico1234" Then

Sheets("Variable").Select

UserFormPass.Hide

Else

MsgBox "Vous n'avez pas accès à cette cellule"

Sheets("Menu").Select

UserFormPass.Hide

End If

End Sub

Private Sub CommandButton2_Click()

Unload UserFormPass

Sheets("Menu").Select

End Sub

@+Thierry · 26 Janvier 2004

Salut Fermo, le Forum

Oui je me souviens de cette démo qui est inclue dans mon Demo Pack 1...

La démo d'origine : Lien supprimé se situe dans le fil Lien supprimé

Par contre ta question est très peu claire : " le mot de passe ne s’efface pas après être rentrée dans la dite feuille " que veux-tu dire par là ???

En déduction, je traduis par " Le mot de passe apparait en clair quand on le tape dans la TextBox "

Si ma déduction s'avère exacte, dans cette démo j'utilise la Propriété "PasswordChar" de la TextBox1 (Dans VBE sélection la TextBox1 puis faire F4 pour avoir cette fenêtre Propriété). Il suffit, depuis cette fenêtre propriété de taper en face de PasswordChar le caractère que l'on veut voir apparaitre, en l'occurrence un "*"...

Maintenant tu peux tout aussi bien faire la même chose par programmation au moment de l'Initialisation du UserForm :

Private Sub UserForm_Initialize()
PasDeCroix Me
With Me
.TextBox1.Value = ""
.TextBox1.PasswordChar = "*"
End With
End Sub

Voilà, en espérant avoir bien interprété ta question, car sinon, je suis à coté de la plaque !! lol

Bon Appétit à tous et toutes
@+Thierry

Fermo · 26 Janvier 2004

Re Thierry et merci pour ta réponse.

J'ai mis un fichier qui j'espère sera plus claire ...

Merci à toi et au Forum Fermo

@+Thierry · 26 Janvier 2004

Salut Fermo,

Hélas je ne peux pas charger de pièces jointes depuis la machine (pro) où je suis à l'instant.

Je regarderais ce soir...

@+Thierry

@+Thierry · 27 Janvier 2004

Bonjour Fermo, le Forum

J'ai regardé ta capture écran, oui ce n'est pas compliqué, il suffit de "vider" la TextBox en question une fois le test sur le PassWord effectué.

Avec ton bouton OK fais ceci (par exemple)

Private Sub CommandButton1_Click()
With Me
If .TextBox1 <> "MDP" Then
MsgBox "Mauvais Mot de Passe"
.TextBox1 = "" '<<< Ici on Vide
Else
MsgBox "Bon Mot de Passe" '<<< L'action qui doit se édrouler si c'est bon !)
.TextBox1 = "" '<<< Ici on Vide

End If
End Sub

Bonne Journée
@+Thierry

Fermo · 27 Janvier 2004

Thierry je te remercie du fond du coeur, car cela fait très > que je ne pouvais pas avancé ..... on est pas tous des pro...

J'ai mis pour information les deux solutions qui fonctionne chez moi.

merci à tous Fermo

Private Sub CommandButton1_Click()
If TextBox1.Value = "1234" Then
Sheets("variable").Select
TextBox1.Value = ""
UserFormPass.Hide
Else
MsgBox "Vous n'avez pas accès à cette Feuille"
Sheets("Menu").Select
TextBox1.Value = ""
'UserFormPass.Hide
End If

ou

Private Sub CommandButton1_Click()
With Me
If .TextBox1 <> "1234" Then
Sheets("Menu").Select
MsgBox "Vous n'avez pas accès à cette Feuille"
.TextBox1 = "" '<<< Ici on Vide
Else
MsgBox "Mot de Passe accepté !" '<<< L'action qui doit se dérouler si c'est bon !)
.TextBox1 = "" '<<< Ici on Vide
Sheets("variable").Select
'UserFormPass.Hide
End If
End With
End Sub

@+Thierry · 27 Janvier 2004

Re Salut Ferno,

Vu que toi aussi tu travailles sur des Protections et Contrôle d'Accès de Feuilles, je te conseille ma dernière démo toutes chaude ;-)

Lien supprimé

Bon Aprèm à Toi et au Forumeurs et Forumeuses
@+Thierry

le pack 1 de @+Thierry

Fermo

Guest

@+Thierry

Guest

Fermo

Guest

Pièces jointes

@+Thierry

Guest

@+Thierry

Guest

Fermo

Guest

@+Thierry

Guest

Discussions similaires