Discussion :

[tomy7]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour

Où as-tu trouvé cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tomy7]

je veux detecter un click !

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

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.

[zebulon2212]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tomy7]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub CommandButton1_Click()
Dim x As Boolean
x
End Sub

[zebulon2212]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public x As Boolean

puis dans le code de ton userform,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
x = true
End Sub

[tomy7]

ya un prob quelque part je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
x = True
End Sub

puis ds this workbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public x As Boolean

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[zebulon2212]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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