Via VBA cijfers plaatsen in tekstvak

[Erwin001]

Hallo,

Ik wil graag via VBA een pincode laten plaatsen in een tekstvak in een worksheet (dus niet op een formulier).
Ook wil ik graag dat de cijfers die geplaatst worden een "char" (masker, *) krijgen, zodat niet op het scherm
duidelijk is welke cijfers worden ingevuld.
Wanneer er 4 cijfers zijn geplaatst, wil ik graag de invoer (pincode) tonen in een msgbox.

Kan iemand mij aan de code hiervoor helpen ?
Alvast hartelijk dank !

Met vriendelijke groet, Erwin

 

[mcs51mc]

Dit kan een (goed) begin zijn... ... ...
Bekijk bijlage PinCodeIngave-001.xlsm

 

[Erwin001]

Hier kan ik mee uit de voeten, bedankt !

 

[mcs51mc]

Iets uitgebreider code met wat error-trapping...

Private blnCBC  As Boolean


Private Sub TextBox1_Change()
    If blnCBC = True Then Exit Sub
    
    'Check of er characters in text bos zitten
    If Len(TextBox1.Value) > 0 Then
        'Yep, check of laatst ingegeven character een getal is
        If IsNumeric(Mid(TextBox1.Value, Len(TextBox1.Value), 1)) Then
            'Yep, check of er reeds 4 cijfers zijn ingegeven
            If Len(TextBox1.Value) = 4 Then
                'Yep, message box weergeven
                MsgBox "Ingave is: " & TextBox1.Value, vbOKOnly + vbInformation, "Code"
            End If
        
        Else
            'Nope, laatste character terug wissen en data van textbox updaten
            'Gebruik van vlag "bnlCBC" om routine te skippen bij wijziging door code
            'Blijkbaar werkt "Application.EnableEvents" niet op TextBox1_Change event ?? !! ??
            blnCBC = True
            TextBox1.Value = Mid(TextBox1.Value, 1, Len(TextBox1.Value) - 1)
            blnCBC = False
        End If
    End If
End Sub