tester un bouton de commande

bonjour,
je verouille au futures utilisateurs la possibilite d enregistrer mais pour cela j ecris ds "thisworkboo" un evenement:

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) UserForm4.Show If UserForm4.TextBox1.Value = " password" And UserForm4.CommandButton1.value = true Then _ Cancel = False End Sub

---

mais le teste du bouton du userform ne fonctionne pas , comment faire ? ou est l erreur?

car ce matin je vois rien!
merci
seulement

Bonjour

Où as-tu trouvé cela :

Code:

---

UserForm4.CommandButton1.value = true

---

Il n'y a pas de propriété Value sur un bouton de commande.

Que veux-tu détecter sur ce bouton ?

Starec

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) UserForm4.Show If UserForm4.TextBox1.Value = " password" And UserForm4.CommandButton1.value = true Then _ Cancel = False End Sub

---

La partie en rouge de ton code n'est pas bonne puisque lorsque cetteprocedure reprend la main ton userform4 est fermé et tu ne peux plus faire de test sur tes valeurs
2 solutions : soit tu fait ton code de vérification et de sauvegarde dans ton userform.
Soit tu passe par une variable globale que ton userform4 met à jour et que tu test dans la procedure BeforeSave

je veux detecter un click !

je viens de le voir qu il n y avait pas .value >>>pfff

Citation:

---

2 solutions : soit tu fait ton code de vérification et de sauvegarde dans ton userform.
Soit tu passe par une variable globale que ton userform4 met à jour et que tu test dans la procedure BeforeSave

---

je vais chosir la deuxieme, je ne peux programmer un evenement ds mon userform enfin du moins je ne sais pas comment faire.

voila ce que je fais et je reutilise x ds thisworkbook mais ya un bug ?

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Dim x As Boolean x End Sub

---

c'est pas une variable globale mais une variable locale
declare x dans Thisworkbook de cette maniere

Code:

---

Public x As Boolean

---

puis dans le code de ton userform,

Code:

---

1 2 3

Private Sub CommandButton1_Click() x = true End Sub

---

ya un prob quelque part je fais

Code:

---

1 2 3

Private Sub CommandButton1_Click() x = True End Sub

---

puis ds this workbook:

Code:

---

Public x As Boolean

---

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) UserForm4.Show   If x = True And UserForm4.TextBox1.Value = "password" Then Cancel = False Else: Cancel = True End If End Sub

---

je vois pas d ou vient l erreur mais il ne se passe rien qd je clic sur ok!

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) UserForm4.Show If x = True And UserForm4.TextBox1.Value = "password" Then Cancel = False Else: Cancel = True End If End Sub

---

l'erreur est en rouge
Tu ne peux pas tester la valeur de ta textbox lorsque ton userform est fermé
Modifie ton commandbutton1_click :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() if TextBox1.Value = "password" then x = True else x = false end if End Sub

---

le x me permet de tester si j ai clicker sur le bouton.

et mon userform4 est bien ouvert car je fais userform4.show

cela ne vient pas de la .

dsl

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) PWD = InputBox("Enter the password:", "PRIVATE ACCESS") If PWD = "password" Then Cancel = False _ Else: Cancel = True End Sub

---

je fais ca avec un inputbox ca marche mais je veux que ma saisie soit masquer par des ***** donc il faut faire un userform je fais un userform ca fonctionne plus !!!!!:bug::mur::mur::arf:

Bonjour

Une solution a été évoqué ce matin sur les mots de passes : http://www.developpez.net/forums/sho...d.php?t=485573

Starec

celle de cafeine est trop lourde et la mienne ne me convient pas;)

Voila le userform Pièce jointe 25141
et dans This WorkBook tu colle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public x As Boolean Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) UsrFrm_MDP.Show If x = True Then x = False Cancel = False Else Cancel = True End If End Sub   Private Sub Workbook_Open() x = False End Sub

---

la j applaudis , je te remercie bcp ZEBULON et je viens de comparer ton code et le mien y me manquait une ligne que j aurai trouver ds 10 ans.... et peut etre pas... lol:king: