Hoofdletter gevoelig maken

[Blizter]

Beste kenners.

Ik gebruike deze code (met dank aan helpmij.nl)

    iMens = Me.TextBox1.Text
    iPass = Me.TextBox2.Text
    
    On Error GoTo foutje
    
    toestemming = Application.WorksheetFunction.VLookup(iMens, Sheets("Mensen").Range("A:B"), 2, False)
    If UCase(iPass) = UCase(toestemming) Then 'Alles OK
        Worksheets(iMens).Visible = True
        Unload Me 'Verwijder UserForm uit geheugen
        Worksheets(iMens).Select 'Selecteer juiste blad
        Exit Sub[SUB][/SUB]

Nu zou ik graag willen dat de login naam en het wachtwoord hoofdletter gevoelig is.

WIe kan me opweg helpen ???

 

[HSV]

Probeer het eens met de functie 'find' met Matchcase op 'true' (hoofdlettergevoelig).
Verwissel in de code columns(1) naar columns(2) als nodig.

iMens = Me.TextBox1.Text
    iPass = Me.TextBox2.Text
    
    'On Error GoTo foutje
    
    Set toestemming = Sheets("Mensen").Columns(1).Find(iMens, , xlValues, xlWhole, , , True)   
 If Not toestemming Is Nothing Then
        Worksheets(iMens).Visible = True
        Unload Me 'Verwijder UserForm uit geheugen
        Worksheets(iMens).Select 'Selecteer juiste blad
        End If

 

[Warme bakkertje]

@ Harry

Je bent de paswoordcontrole vergeten

Private Sub CommandButton1_Click()
On Error GoTo fout
Set toestemming = Sheets("Mensen").Columns(1).Find(Me.TextBox1.Text, , xlValues, xlWhole, , , True).Offset(, 1)
If toestemming = Me.TextBox2.Text Then
    Unload Me 'Verwijder UserForm uit geheugen
    With Sheets(Me.TextBox1.Text)
        .Visible = True
        Application.Goto .Range("A1"), True 'Selecteer juiste blad
    End With
Else: GoTo fout
End If
Exit Sub
fout:
MsgBox "Foutieve Loginnaam of wachtwoord !! Let op Hoofdletters"
End Sub

 

[HSV]

@Rudi,

Waarschijnlijk even teveel verwijderd na een nabootsing.

 

[Blizter]

Dank je voor je reactie
Hier ben ik heel veel verder mee gekomen.