Soyez le premier à donner votre avis sur cette source.
Vue 11 694 fois - Téléchargée 907 724 fois
Private Sub cmdAnnuler_Click() Unload Me MsgBox " Cette commande ne peut être exécutée sans le mot de passe", vbOKOnly + vbExclamation, "Fin de la commande" End End Sub Private Sub CmdOK_Click() Static compteur As Byte compteur = compteur + 1 If txtMotDePasse.Text = "password" Then Unload Me Else If compteur = 3 Then MsgBox "Echec de la saisie du mot de passe." & vbCr & " La commande nepeut être exécutée", vbOKOnly + vbExclamation, "Mot de passe incorrect" End End If MsgBox " le mot de passe fourni n'est pas correct.", vbOKOnly + vbExclamation, "Mot de passe incorrect " txtMotDePasse.Value = "" txtMotDePasse.SetFocus Me.Caption = "Entrez le mot de passe. Tentative " & compteur + 1 & " sur 3" End If End Sub Private Sub UserForm_Initialize() txtMotDePasse.Value = "" txtMotDePasse.SetFocus End Sub Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer) If closeMode = vbFormControlMenu Then Me.Hide MsgBox "Cette Comande ne peut être exécutée sans le mot de passe.", vbOKOnly + vbExclamation, "Fin de la commande" End End If End Sub
dans la ligne 14: vbCr correspond à "retour à la ligne".
le & veut tout simplement dire "et".
on peut saisir également "& chr(10) &" ou encore "& chr(13) &".
Attention : les guillemets ne sont pas à prendre en compte
Si qq1 la comprend qu'il me léexplique merci.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.