Inputbox met ***** ipv zichtbare tekst

[arvie76]

Hallo,

ik heb op dit forum een mooie code gevonden om een beheermenu(Userform) zichtbaar te maken doormiddel van wachtwoord, deze code iets of wat aangepast naar naar mijn bestand. Dit werkt goed.
Bij mij is bekend dat wachtwoorden en excel en VBA niet 100 % waterdicht is. Maar voor het gebruik bij ons in de praktijk goed genoeg.

Private Sub Beheer_Click()

    While Teller < 3
        Select Case InputBox("Voer het beheerwachtwoord in")
            Case "BIALP"
                Unload Hoofdmenu
                Beheermenu.Show
                Exit Sub

            Case Else
                MsgBox "Wachtwoord onjuist", vbCritical, "Foutief wachtwoord"
                Teller = Teller + 1
        End Select
    Wend
    
    MsgBox "3 maal verkeerde wachtwoord ingeven"
   
End Sub

Echt zou ik het mooi vinden als je i.p.v. het wachtwoord ziet bij het invoeren er XXX zichtbaar worden in de inputbox. Is dat mogelijk of kan dat alleen via een userform ?

 

[edmoor]

Kijk hier eens naar:
https://wellsr.com/vba/2016/excel/mask-your-password-with-this-vba-inputbox/

Dan denk ik dat je er simpeler een userform voor kan maken.

 

[arvie76]

foutmelding

Als ik mijn code aanpas of de code overneem uit jouw voorbeeld krijg ik de foutmelding

Compileerfout:

Sub of Function is niet gedefinieerd

Heeft dit mogelijk te maken met de versie die wij gebruiken ? dat hij de InputDK niet kent. want zonder deze toevoeging werkt mijn code wel, maar zie ik die het wachtwoord.

Versie Excel/office 2013

Voor de duidelijk maar was misschien ook wel zichtbaar aan mijn code, ik de code starten als je klikt op de knop "Beheer"

Edmoor, thnx voor je snelle reactie/input.

 

[edmoor]

Dan heb je alleen dat kleine stukje gekopieerd.
De functie InputBoxDK is de lap code die er boven staat.