A
Abdias_bly
Guest
je voudrais masquer le mot de sorte qu'à la place de "toto" que les astérix s'affiche à la fénètre de saisie.
Private Sub CommandAller_Tbl_Click()
If InputBox("Mot de passe ?") = "toto" Then
Sheets("Fiche Client").Visible = True
Sheets("Fiche Client").Select
Unload Accueil
End If
End Sub
Vous pouvez modifier à souhait en mettant par exemple l'option de modification du mot de passe.à ce niveau il faut mettre une double condition qui portera un mot préenrégistré...vous voyez de quoi je parle
Merci d'avance
Private Sub CommandAller_Tbl_Click()
If InputBox("Mot de passe ?") = "toto" Then
Sheets("Fiche Client").Visible = True
Sheets("Fiche Client").Select
Unload Accueil
End If
End Sub
Vous pouvez modifier à souhait en mettant par exemple l'option de modification du mot de passe.à ce niveau il faut mettre une double condition qui portera un mot préenrégistré...vous voyez de quoi je parle
Merci d'avance