Cel en invoer overeen.

[bar88]

Wat doe ik fout?

Invoer moet overeen komen met sheet instelling cel F14, komt dit niet overeen dan dient hij excel te sluiten.

Wat ik gemaakt heb, of het nu overeenkomt ja of nee hij gaat gewoon verder.

b00 = InputBox("Voer uw gebruikernaam in")
If b00 <> Sheets("instelling").Range("F14") Then GoTo verder Else ThisWorkbook.Close SaveChanges:=False: If Workbooks.Count = 0 Then Application.Quit

verder:
a00 = InputBox("Voer uw wachtwoord in")
If a00 <> Sheets("instelling").Range("F13") Then GoTo verder1 Else ThisWorkbook.Close SaveChanges:=False: If Workbooks.Count = 0 Then Application.Quit

verder1:


End Sub

#beginner

 

[ExcelAmateur]

Ik weet er niet veel van maar Else staat normaal op de volgende regel.
If... Then Goto .....
Else

Probeer het zo eens, de code in een Module.

b00 = InputBox("Voer uw gebruikernaam in")
  If b00 <> Range("F14").Value Then
    GoTo verder
  Else
    ThisWorkbook.Close SaveChanges:=False
    If Workbooks.Count = 0 Then Application.Quit
  End If

verder:
a00 = InputBox("Voer uw wachtwoord in")
  If a00 <> Range("F13") Then
    GoTo verder1
  Else
    ThisWorkbook.Close SaveChanges:=False
    If Workbooks.Count = 0 Then Application.Quit

verder1:
  End If
End Sub

 

[SjonR]

Is het niet de bedoeling dat wanneer b00 gelijk is aan F14 je naar Verder gaat? Dan zou ik geen <> gebruiken maar =

 

[emields]

Het zal wachten zijn op een voorbeeldbestand.