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!
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!