Problème sur query close

Bonjour à tous,

Je sollicite beaucoup en ce moment ce site car je suis novice dans vba. Il y a quelque chose que je ne comprend pas dans mon code de userform d'identification.

Lorsque j'active mon code queryclose, la saisie de mon login et mot de passe ne fonctionne plus. Par contre, quand je ne l'active pas tout fonctionne.

Pourrie vous m'aider à résoudre mon problème, merci ?????

Voici mon code :

Private Sub CommandButton1_Click()

'commandbutton1 est annulé

ActiveWorkbook.Close

End Sub

Private Sub CommandButton2_Click()

'commandbutton2 est ok

If TextBox2 = "DAMOUR" And TextBox1 = "WGV908" Then

'Fermeture du formulaire.

Unload Me

Else

MsgBox "Pas bon !"

End If

End Sub

Private Sub Label1_Click()

'label1 est login

End Sub

Private Sub Label2_Click()

'label2 est password

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call Macro1record

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

'ne peut pas se fermer avec la croix

Cancel = True

End Sub

Bonjour

Le fait d'utiliser Unload Me appelle la procédure UserForm_QueryClose, dans laquelle tu indiques de refuser la fermeture

Il faut que dans cette procédure tu saches quel mode de fermeture est utilisé : Le CloseMode

Ce code interdit toute fermeture si celle-ci n'est pas déclenchée par une instruction (Unload Me)

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'ne peut pas se fermer avec la croix
  If CloseMode <> vbFormCode Then Cancel = True
'Cancel = True
End Sub