compteur

Bonjour Chris,

Dans un module classique, tu a juste à choisir ta condition pour vérifier
les noms :

Sub auto_open()
Dim Name As String, compteur As Integer
compteur = 0
1
compteur = compteur + 1
Name = InputBox("Quel est votre nom ?" & Chr(13) & " Vous avez déjà fait " &
Evaluate(compteur - 1) & " essai(s).")

If Name = ?? ici ta condition Then
Exit Sub
ElseIf compteur < 3 Then
GoTo 1
Else:
Application.DisplayAlerts = False
Application.Quit
End If
End Sub

Cordialement
Benjamin

Bonjour,

J'aimerai savoir comment créer un petit programme sur excel qui à
l'ouverture du classeur demande le nom de l'utilisateur; si ce nom n'est pas
valable au bout de 3x, Excel se ferme...

Merci!

Bonjour chris,

Dans la feuille de code de ThisWorkbook...

Private Sub Workbook_Open()
Dim mdP As String, alR
Dim t As Byte
alR = MsgBox("Un mot de passe sera requis pour l'ouverture " _
& "de ce classeur !" & Chr(10) & "Désirez-vous poursuivre ?", _
4, "Attention...")
If alR <> vbYes Then Exit Sub
mdP = "zaza"
t = 0
Do
t = t + 1
anS = Application.InputBox("Quel est le mot magique ?", _
"Tentative " & t, , , , , , 1 + 2)
If anS = mdP Then Exit Sub
Loop While t < 3
inF = MsgBox("Le classeur va être fermé...", vbCritical, _
"Mot de passe invalide...")
ThisWorkbook.Close (0)
End Sub


ChrisV


"chris" <chris@discussions.microsoft.com> a écrit dans le message de news:
6FD6D265-C549-40AF-A33F-344DF8CB58E3@microsoft.com...

Bonjour,

J'aimerai savoir comment créer un petit programme sur excel qui à
l'ouverture du classeur demande le nom de l'utilisateur; si ce nom n'est
pas
valable au bout de 3x, Excel se ferme...

Merci!