Mot passe InputBox !!

[Nanard]

Bonjour à tous, les rois du VBA,

J'ai une appli qui s'ouvre sur des MsgBox et un InputBox, je souhaiterai que le programme se bloque ou se ferme si le mot de passe est erroné

Je ne sais pas comment faire ! quelqu'un à t'il une idée !
Voici mon code:

Private Sub workBook_Open()
Dim Utilis As String
Dim dateJour As Date
Utilis = Application.UserName
dateJour = Date
MsgBox "Bonjour " & Utilis & Chr(10) & "Nous sommes le " & dateJour
MsgBox " Ce programme a été conçu par dudu, toute reproduction est interdite, seul l'auteur est habilité à donner son autorisation, cette version est utilisable par la Société titi" & Chr(10), vbCritical
Valeur_A100 = InputBox("Entrez le mot de passe", "ATT ")
Nom_Boîte = Valeur_A100
If Valeur_A100 = "potain" Then
Sheets("Menu").Range("A100").Select
ActiveCell.Value = Valeur_A100
Selection.Characters.Text = ""
Selection.Characters.Text = CStr(Nom_Boîte)
Range("A1").Select
Else

'ICI JE NE SAIS PAS COMMENT FAIRE !

End If
End Sub

Merci pour l'aide qui pourra m'être apporter, je cherche de mon côté

@+

Nanard

 

[Hervé]

Bonjour

ton code en rajoutant la fermeture du classeur après 3 essais de mot de passe incorrect.

Private Sub workBook_Open()
Dim nbressais As Byte

MsgBox "Bonjour " & Application.UserName & Chr(10) & "Nous sommes le " & Date
MsgBox " Ce programme a été conçu par dudu, toute reproduction est interdite, seul l'auteur est habilité à donner son autorisation, cette version est utilisable par la Société titi" & Chr(10), vbCritical
retour:
Valeur_A100 = InputBox("Entrez le mot de passe", "ATT ")
Nom_Boîte = Valeur_A100
If Valeur_A100 = "potain" Then
Sheets(1).Range("A100").Select
ActiveCell.Value = Valeur_A100
Selection.Characters.Text = ""
Selection.Characters.Text = CStr(Nom_Boîte)
Range("A1").Select
Else
nbressais = nbressais + 1
If nbressais = 3 Then
MsgBox "Ce classeur va se fermer."
ThisWorkbook.Close
End If

MsgBox "Mot de passe incorrect."
GoTo retour

End If
End Sub

Salut
Hervé

 

[Nanard]

Bonsoir hervé,

ça fonctionne

merci

@+

Nanard