manque une astuce pour compléter macro

[bataggone]

bonjour tt le monde
manque une astuce pour compléter macro

plus de détailles sur l'image
merci

code
Private Sub CommandButton1_Click()
Dim username, password As String

username = TextBox1.Text
password = TextBox2.Text

If username = "myuser" And password = "mypassword" Then
MsgBox "You entred the correct ino", vbInformation
Unload Me 'unload this form

Else
MsgBox "you entred the WRONG info", vbCritical Or vbYesNoCancel

'now close the workbook
ThisWorkbook.Close

End If
End Sub

 

[Jauster]

Bonjour,

Si j'ai bien compris :

Private Sub UserForm_Terminate()
    Application.Quit
End Sub

Bonne journée

 

[bataggone]

Bonjour,

Si j'ai bien compris :

Private Sub UserForm_Terminate()
    Application.Quit
End Sub

Bonne journée

merci beaucoup Mr jauster
tres bonne travail