asterisks weergeven bij invoer wachtwoord

[zwinmi]

Hallo Forum,

Een aantal tabbladen heb ik beveiligd met onderstaande vba-code. Dit werkt perfect. Alleen als ik het wachtwoord invoer, dan is deze zichtbaar in het invoervak. Ik wil dat als ik het wacthwoord invul, er asterisks komen te staan, dus **** i.p.v. 1234. Dit in verband met toekijkers als ik op de beamer presenteer.

Weten jullie of dit mogelijk is en zo ja, hoe?

Private Sub CommandDataPrestaties_Click()
     'Prompt the user for a password and unhide the worksheet if correct
    Select Case InputBox("Toegang alleen voor beheerder. Geef het wachtwoord om door te gaan.", _
        "Beperkte toegang")
         
    Case Is = "[COLOR="Red"]1234[/COLOR]"
        With Worksheets("DataPrestatie")
            .Visible = xlSheetVisible
            .Activate
            .Range("A1").Select
        End With
    Case Else
        MsgBox "Ingevoerd wachtwoord is onjuist!", _
        vbCritical + vbOKOnly, "Geen toegang!"
    End Select
    Unload Menu
End Sub

Alvast bedankt voor jullie inzet!!

 

[Ginger]

Weten jullie of dit mogelijk is en zo ja, hoe?

Gebruik een VBA-userform en een textbox in plaats van een standaard inputbox. Een eigenschap van een textbox (PasswordChar) is het tonen van een ander teken dan hetgeen je intikt.

Groet, Leo

 

[zwinmi]

Hoi Leo,

Daar was ik dus al bang voor Ik had de inputbox er overal ingezet en zag later pas dat ik er geen *** van kon maken. Ik hoopte dat het toch mogelijk was met een inputbox, liever lui dan moe. Ga ik er toch maar userforms van maken. Bedankt voor de moeite. Mocht iemand toch weten hoe het wel kan met vba, hoor ik het toch nog graag.

Met vriendelijke groet,

Mike

 

[Ginger]

Mocht iemand toch weten hoe het wel kan met vba

Ehhhh... een userform IS vba...

Groet, Leo

 

[Warme bakkertje]

Voor de geïnteresseerden. Met een Inputbox is het ook mogelijk om deze gemaskeerd weer te geven zie bijlage

 

[Ginger]

Voor de geïnteresseerden. Met een Inputbox is het ook mogelijk om deze gemaskeerd weer te geven zie bijlage

Tja... Ik moet zeggen dat ik het razend knap vind dat iemand zoiets kan ontwikkelen... Maar of dit opweegt tegen een userformpje met een textbox vraag ik me af.
Wel gaaf dat je dit hebt gevonden en met ons gedeeld trouwens. :thumb:

Groet, Leo

 

[zwinmi]

Hallo WarmBakkertje,

Hartelijk dank voor je oplossing. :thumb:Ik begrijp alleen niet precies hoe ik deze moet invoegen in mijn bestand. Ik neem aan dat ik de module moet kopieren naar mijn bestand? Moet ik er dan nog woorden in veranderen zodat deze werkt op mijn inputbox o.i.d?

mvg,

Mike

 

[Warme bakkertje]

Kopieër de module naar je bestand en gebruik dan volgende macro

Private Sub CommandDataPrestaties_Click()
     'Prompt the user for a password and unhide the worksheet if correct
    If InputBox[COLOR="Red"]DK[/COLOR]("Toegang alleen voor beheerder. Geef het wachtwoord om door te gaan.", _
        "Beperkte toegang") = 1234 Then
        Sheets("DataPrestatie").Visible = xlSheetVisible
        Application.Goto [DataPrestatie!A1]
    Else
        MsgBox "Ingevoerd wachtwoord is onjuist!", _
        vbCritical + vbOKOnly, "Geen toegang!"
    End If
    Unload Menu
End Sub

 

[zwinmi]

Hallo WarmBakkertje,

Bedankt voor je uitleg, ik ben hier erg mee geholpen. Ik zet een slotje op deze vraag!