Wachtwoord Macro's

[hulsmans]

Beste,

ik heb in een Excel bestand verschillende macro's opgenomen. Het blad moet door diverse mensen worden uitgevoerd. Eén persoon doet de verwerking. Hij moet alle beveiligingen kunnen opheffen met één handeling. Daar ik niet wil dat andere gebruikers de macro's kunnen uitvoeren heb ik er een wachtwoord voorgezet. Dit werkt doch het probleem is dat je bij het intypen van het wachtwoord ook geschreven ziet staan.

Ik gebruikte volgende code:

'Public Sub MyMacro()

Const PWORD As String = "Wachtwoord"

Dim response As String

Dim msg As String

msg = "Voer wachtwoord in:"

Do

response = Application.InputBox(Prompt:=msg, _

Title:="Password", Type:=2)

If response = CStr(False) Then Exit Sub 'Cancelled

msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"

Loop Until response = PWORD

'Voer code in

Weet Iemand hoe ik Bvb. sterretjes kan geven bij invoeren wachtwoord???

Alvast met Dank!

[babyprinsess]

Hallo,

Ipv van een inputBox te gebruiken kun je dit best met een formulier doen. Daarop maak je dan een tekstvak

waarvan de eigenschap PassworChar is ingesteld op *.

Als op dat formulier de volgende drie controls staan:

tekstvak: txtWachtwoord (eigenschap PassWordChar op *)

knop: cmdOK

knop: cmdCancel

en je zet deze code in het formulier:

Private Sub cmdCancel_Click()

Unload Me

End Sub

Private Sub cmdOK_Click()

If Me.txtWachtwoord <> "1234" Then

MsgBox "Het wachtwoord was onjuist"

Unload Me

Else

Unload Me

'hier de code aanroepen die uitgevoerd moet worden

'als het wachtwoord wel juist is ingegeven

End If

End Sub

[hulsmans]

Dank je maar hier ben ik dus absoluut niet in thuis.

Kan je me dit Dummygewijs expliceren???