Bonjour,
j'ai mis ce code dans un userform
Option Explicit
Private Bouton As Boolean
Private Sub UserForm_Initialize()
txtMotdepasse.Value = ""
txtMotdepasse.SetFocus
Me.Calendar1.Value = Now()
End Sub
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()
'On vérifie si le mot de passe entré est bon.
If txtMotdepasse.Text = "xxxxx" Then
Unload Me
Else
MsgBox "Le mot de passe fourni n'est pas correct.", vbOKOnly +
vbExclamation, "Mot de passe incorrect"
txtMotdepasse.Value = ""
txtMotdepasse.SetFocus
End If
End Sub
Sub TestMotdepasse()
UserForm1.Show
MsgBox "si ce message s'affiche,le programme se poursuit"
End Sub
Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As
Integer)
If CloseMode = vbFormControlMenu Then
Me.Hide
MsgBox "cette commande ne peut etre executee sans mot de passe", _
vbOKOnly + vbExclamation, "Fin de commande"
End
End If
End Sub
mais voila j'ai 2 bogues
le 1er sur la croix de fermeture me renvoit sur la feuille
le 2eme sur cmd annuler me renvoit sur la feuille
alors je pige plus
les proprietes de cmdOK "defaut a true" "cancel à ?"
"""" """ cmd annuler "cancel a true " " defaut a ?"
si vous pouviez m'aider
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Dans les deux cas, il faut soit fermer ton classeur soit fermer Excel, si c'est ce que tu souhaites. Cordialement. Daniel "andre" a écrit dans le message de news:
Bonjour, j'ai mis ce code dans un userform Option Explicit Private Bouton As Boolean Private Sub UserForm_Initialize() txtMotdepasse.Value = "" txtMotdepasse.SetFocus Me.Calendar1.Value = Now() End Sub 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() 'On vérifie si le mot de passe entré est bon. If txtMotdepasse.Text = "xxxxx" Then Unload Me Else MsgBox "Le mot de passe fourni n'est pas correct.", vbOKOnly + vbExclamation, "Mot de passe incorrect" txtMotdepasse.Value = "" txtMotdepasse.SetFocus End If End Sub Sub TestMotdepasse() UserForm1.Show MsgBox "si ce message s'affiche,le programme se poursuit"
End Sub Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Me.Hide MsgBox "cette commande ne peut etre executee sans mot de passe", _ vbOKOnly + vbExclamation, "Fin de commande" End
End If
End Sub
mais voila j'ai 2 bogues le 1er sur la croix de fermeture me renvoit sur la feuille le 2eme sur cmd annuler me renvoit sur la feuille alors je pige plus les proprietes de cmdOK "defaut a true" "cancel à ?" """" """ cmd annuler "cancel a true " " defaut a ?" si vous pouviez m'aider merci
-- andre
Bonjour.
Dans les deux cas, il faut soit fermer ton classeur soit fermer Excel, si
c'est ce que tu souhaites.
Cordialement.
Daniel
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.da3f7d6c90580f18.51150@cegetel.net...
Bonjour,
j'ai mis ce code dans un userform
Option Explicit
Private Bouton As Boolean
Private Sub UserForm_Initialize()
txtMotdepasse.Value = ""
txtMotdepasse.SetFocus
Me.Calendar1.Value = Now()
End Sub
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()
'On vérifie si le mot de passe entré est bon.
If txtMotdepasse.Text = "xxxxx" Then
Unload Me
Else
MsgBox "Le mot de passe fourni n'est pas correct.", vbOKOnly +
vbExclamation, "Mot de passe incorrect"
txtMotdepasse.Value = ""
txtMotdepasse.SetFocus
End If
End Sub
Sub TestMotdepasse()
UserForm1.Show
MsgBox "si ce message s'affiche,le programme se poursuit"
End Sub
Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Me.Hide
MsgBox "cette commande ne peut etre executee sans mot de passe", _
vbOKOnly + vbExclamation, "Fin de commande"
End
End If
End Sub
mais voila j'ai 2 bogues
le 1er sur la croix de fermeture me renvoit sur la feuille
le 2eme sur cmd annuler me renvoit sur la feuille
alors je pige plus
les proprietes de cmdOK "defaut a true" "cancel à ?"
"""" """ cmd annuler "cancel a true " " defaut a ?"
si vous pouviez m'aider
merci
Bonjour. Dans les deux cas, il faut soit fermer ton classeur soit fermer Excel, si c'est ce que tu souhaites. Cordialement. Daniel "andre" a écrit dans le message de news:
Bonjour, j'ai mis ce code dans un userform Option Explicit Private Bouton As Boolean Private Sub UserForm_Initialize() txtMotdepasse.Value = "" txtMotdepasse.SetFocus Me.Calendar1.Value = Now() End Sub 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() 'On vérifie si le mot de passe entré est bon. If txtMotdepasse.Text = "xxxxx" Then Unload Me Else MsgBox "Le mot de passe fourni n'est pas correct.", vbOKOnly + vbExclamation, "Mot de passe incorrect" txtMotdepasse.Value = "" txtMotdepasse.SetFocus End If End Sub Sub TestMotdepasse() UserForm1.Show MsgBox "si ce message s'affiche,le programme se poursuit"
End Sub Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Me.Hide MsgBox "cette commande ne peut etre executee sans mot de passe", _ vbOKOnly + vbExclamation, "Fin de commande" End
End If
End Sub
mais voila j'ai 2 bogues le 1er sur la croix de fermeture me renvoit sur la feuille le 2eme sur cmd annuler me renvoit sur la feuille alors je pige plus les proprietes de cmdOK "defaut a true" "cancel à ?" """" """ cmd annuler "cancel a true " " defaut a ?" si vous pouviez m'aider merci
-- andre
andre
non ca marche pas je demarre le classeur par l'userform et maintenant en fermant par la croix de fermeture je n'ai plus de message et le bouton cmdAnnuler me renvoit toujours la feuille
andre à dit
Bonjour. Dans les deux cas, il faut soit fermer ton classeur soit fermer Excel, si c'est ce que tu souhaites. Cordialement. Daniel "andre" a écrit dans le message de news:
-- andre
non ca marche pas
je demarre le classeur par l'userform
et maintenant en fermant par la croix de fermeture
je n'ai plus de message
et le bouton cmdAnnuler me renvoit toujours la feuille
andre à dit
Bonjour.
Dans les deux cas, il faut soit fermer ton classeur soit fermer Excel, si
c'est ce que tu souhaites.
Cordialement.
Daniel
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.da3f7d6c90580f18.51150@cegetel.net...
non ca marche pas je demarre le classeur par l'userform et maintenant en fermant par la croix de fermeture je n'ai plus de message et le bouton cmdAnnuler me renvoit toujours la feuille
andre à dit
Bonjour. Dans les deux cas, il faut soit fermer ton classeur soit fermer Excel, si c'est ce que tu souhaites. Cordialement. Daniel "andre" a écrit dans le message de news:
-- andre
MichDenis
Exemple là : http://cjoint.com/?mBnuyQ4NPH
"andre" a écrit dans le message de news:
Bonjour, j'ai mis ce code dans un userform Option Explicit Private Bouton As Boolean Private Sub UserForm_Initialize() txtMotdepasse.Value = "" txtMotdepasse.SetFocus Me.Calendar1.Value = Now() End Sub 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() 'On vérifie si le mot de passe entré est bon. If txtMotdepasse.Text = "xxxxx" Then Unload Me Else MsgBox "Le mot de passe fourni n'est pas correct.", vbOKOnly + vbExclamation, "Mot de passe incorrect" txtMotdepasse.Value = "" txtMotdepasse.SetFocus End If End Sub Sub TestMotdepasse() UserForm1.Show MsgBox "si ce message s'affiche,le programme se poursuit"
End Sub Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Me.Hide MsgBox "cette commande ne peut etre executee sans mot de passe", _ vbOKOnly + vbExclamation, "Fin de commande" End
End If
End Sub
mais voila j'ai 2 bogues le 1er sur la croix de fermeture me renvoit sur la feuille le 2eme sur cmd annuler me renvoit sur la feuille alors je pige plus les proprietes de cmdOK "defaut a true" "cancel à ?" """" """ cmd annuler "cancel a true " " defaut a ?" si vous pouviez m'aider merci
-- andre
Exemple là : http://cjoint.com/?mBnuyQ4NPH
"andre" <andre260@cegetel.net> a écrit dans le message de news:
mn.da3f7d6c90580f18.51150@cegetel.net...
Bonjour,
j'ai mis ce code dans un userform
Option Explicit
Private Bouton As Boolean
Private Sub UserForm_Initialize()
txtMotdepasse.Value = ""
txtMotdepasse.SetFocus
Me.Calendar1.Value = Now()
End Sub
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()
'On vérifie si le mot de passe entré est bon.
If txtMotdepasse.Text = "xxxxx" Then
Unload Me
Else
MsgBox "Le mot de passe fourni n'est pas correct.", vbOKOnly +
vbExclamation, "Mot de passe incorrect"
txtMotdepasse.Value = ""
txtMotdepasse.SetFocus
End If
End Sub
Sub TestMotdepasse()
UserForm1.Show
MsgBox "si ce message s'affiche,le programme se poursuit"
End Sub
Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As
Integer)
If CloseMode = vbFormControlMenu Then
Me.Hide
MsgBox "cette commande ne peut etre executee sans mot de passe", _
vbOKOnly + vbExclamation, "Fin de commande"
End
End If
End Sub
mais voila j'ai 2 bogues
le 1er sur la croix de fermeture me renvoit sur la feuille
le 2eme sur cmd annuler me renvoit sur la feuille
alors je pige plus
les proprietes de cmdOK "defaut a true" "cancel à ?"
"""" """ cmd annuler "cancel a true " " defaut a ?"
si vous pouviez m'aider
merci
Bonjour, j'ai mis ce code dans un userform Option Explicit Private Bouton As Boolean Private Sub UserForm_Initialize() txtMotdepasse.Value = "" txtMotdepasse.SetFocus Me.Calendar1.Value = Now() End Sub 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() 'On vérifie si le mot de passe entré est bon. If txtMotdepasse.Text = "xxxxx" Then Unload Me Else MsgBox "Le mot de passe fourni n'est pas correct.", vbOKOnly + vbExclamation, "Mot de passe incorrect" txtMotdepasse.Value = "" txtMotdepasse.SetFocus End If End Sub Sub TestMotdepasse() UserForm1.Show MsgBox "si ce message s'affiche,le programme se poursuit"
End Sub Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Me.Hide MsgBox "cette commande ne peut etre executee sans mot de passe", _ vbOKOnly + vbExclamation, "Fin de commande" End
End If
End Sub
mais voila j'ai 2 bogues le 1er sur la croix de fermeture me renvoit sur la feuille le 2eme sur cmd annuler me renvoit sur la feuille alors je pige plus les proprietes de cmdOK "defaut a true" "cancel à ?" """" """ cmd annuler "cancel a true " " defaut a ?" si vous pouviez m'aider merci
