Macro beveiliging met wachtwaard. Toon *** bij typen

[RoyB1973]

Beste forumleden,

Heb een zeer uitgebreid document in Excel, welke is voorzien van verschillende maco's die alleen door mij uitgevoerd mogen worden.
Hiervoor heb ik de volgende code toegevoegd aan iedere macro.

Dim Password As String
    Do Until Password = "password"
        Password = InputBox("Vul hier uw wachtwoord" & vbCrLf & "Deze optie is alleen beschikbaar voor de beheerder", "Beheerders Wachtwoord", "")
        If Password = "" Then
            Exit Sub
        End If
    Loop

Hierna volgt de rest van de macro.


Dit werkt erg mooi, echter wanneer de tekstbox voor de macro verschijnt en ik deze type dan is het wachtwoord zichtbaar.
Is het ook mogelijk om **** te tonen bij het typen van het wachtwoord?


Groet Roy

 

[ExcelAmateur]

RoyB1973,

Dit kun je instellen bij Eigenschappen van de TextBox
PasswordChar - daar vul je zelf in wat je wil zien een * of iets anders

 

[edmoor]

Dat is inderdaad zo bij het gebruik van een Textbox in een Userform.
Maar is dat ook zo bij een simpele Inputbox?

 

[RoyB1973]

Hoi EA,

Waar kan ik deze instellingen vinden. Zie ze namelijk nergens.?

Groet Roy.


Edmoor,

Is het eenvoudig om zoiets met een userform op te lossen. Ik heb een vijftal macro's die starten met bovenstaande code waarbij er eerst een wachtwoord ingevuld moet worden alvorens de macro doorloopt.?
Heb nl. nog niet met userforms gewerkt.

Groet Roy

 

[ExcelAmateur]

RoyB1973,

Sorry ik had je vraag verkeerd gelezen, dacht dat je een TextBox gebruikte.
Zelf doe ik dit via een Userform met daarin een Textbox.

 

[ExcelAmateur]

Hier een iets verbeterde uitvoer.
Het zal waarschijnlijk nog wel beter kunnen maar ik ben geen VBA specialist.

 

[RoyB1973]

Beste EA,

Ben even aan het stoeien geweest krijg het echter nog niet voor elkaar.
De return krijg ik niet en ik wil graag dat de macro wordt uitgevoerd.
Dus had de code ingevoerd, daar waar jij de msgBox hebt staan

Run "macronaam"

Echter krijg ik de enter niet voor elkaar in de tekstbox... waar zit die instelling.?

Groet Roy

 

[ExcelAmateur]

De code zit achter het Formulier.

Als je in de VBA editor zit, dubbelklik je links op het formulier.
Als je het formulier rechts ziet, klik je er met rechts op en kies voor Programma code weergeven.
Als het goed is zie je nu de gebruikte code.

Als je de Eigenschappen van de TextBox wil zien, klik je met rechts erop en kies eigenschappen.

Ik hoop dat het een beetje duidelijk is uitgelegd.

Suc6

 

[RoyB1973]

Helemaal top. Werkt fantastisch, nu kan ik in ieder geval via de web collaboration een demo geven zonder dat iedereen mijn wachtwoord ziet..
Had een foutje gemaakt in het overnemen.
Thnx voor je hulp.

Grtz Roy.