Wie help mij met de macro?

[Hoornvan]

Hallo,

Ik ben al dagen bezig om mijn macro werkend te krijgen.
Als je het goede password invoer dan werkt het goed.
Voer ik een verkeerd password in dan komt hij niet terug in het invoer vak.
Zie het bijgevoegde bestand
Wat doe ik fout?

Public Sub CommandButton1_Click()
Dim teller As Integer
For teller = 1 To 3
'If teller > 3 Then Workbooks("Menu").Close savechanges:=False
    If TextBox1 = "Fout" Then 
    Unload Me
 Exit For
    Else: MsgBox "Dit password is fout" & vbCr & "u heeft nog " & 3 - teller & " Kans(en)"
    TextBox1 = ""
    TextBox1.SetFocus
    End If
Next teller
End Sub

Mvg,
Wim

 

[Hoornvan]

De bijlage vergeten, hier is hij.

Mvg,Wim

 

[Roncancio]

Bedoel je het zo:

Als je het bestand opent en je geeft een verkeerd wachtwoord, dan verschijnt de mededeling dat er nog 2 kansen zijn. Geef je opnieuw een verkeerd wachtwoord, dan verschijnt de melding dat er maar 1 kans overblijft.
Ga het ook bij die laatste kans mis dan wordt het bestand afgesloten zonder op te slaan.

Met vriendelijke groet,


Roncancio

 

[Hoornvan]

Hallo Roncancio,

Dit werkt uitstekend, bedankt hier voor.
Ik ga de code's naast elkaar leggen en kijken wat ik fout gedaan heb.

Nogmaals bedankt.

Mvg,
Wim

 

[Roncancio]

Hallo Roncancio,

Dit werkt uitstekend, bedankt hier voor.
Ik ga de code's naast elkaar leggen en kijken wat ik fout gedaan heb.

Nogmaals bedankt.

Mvg,
Wim

Je maakte gebruik van een For...Next lus.
Zo'n lus is onvoorwaardelijk dwz dat deze lus in jouw code 3 keer wordt doorlopen ongeacht de waarde van teller.
Over teller gesproken doordat je teller gedefinieerd heeft in het click-event van de knop, begint de teller steeds van voren af aan, vandaar dat ik het buiten de click-event heb geplaatst.

Met vriendelijke groet,


Roncancio