Macro beveiligen met wachtwoord.

[chermans74]

Hallo allemaal,

Om een macro te beveiligen met een wachtwoord gebruik ik de volgende
code:

Sub Wachtwoord()
Const PWORD As String = "1234"
 Dim response As String
 Dim msg As String
 msg = "Voer wachtwoord in:"
 Do
 response = Application.InputBox(Prompt:=msg, _
 Title:="Wachtwoord", Type:=2)
 If response = CStr(False) Then Exit Sub 'Cancelled
 msg = "Niet correct...." & vbNewLine & "Voer opnieuw wachtwoord in:"
 Loop Until response = PWORD
‘Run macro
End sub

Mijn vraag is nu, is het mogelijk om de invoer zichtbaar te maken met **** ipv de werkelijke tekens.
Alvast bedankt,

C. Hermans.

 

[edmoor]

Application.Inputbox heeft daar voor zover ik weet geen mogelijkheid voor.

Je kunt het wel doen met via een Userform met een Textbox.
1 van de eigenschappen van een Textbox is PasswordChar, waarmee je kunt aangeven welk teken er moet worden getoond bij iedere toetsaanslag terwijl er toch de juiste string in staat.

Het is al erg oud maar je kunt hier ook eens naar kijken:
http://www.xcelfiles.com/API_09.html

 

[chermans74]

Dank voor de reactie.
Weet u misschien een andere manier om een macro te beveiligen met een wachtwoord zodanig dat de invoer van het wachtwoord visueel wordt weergegeven als, ****** etc.

Alvast bedankt, C.

 

[edmoor]

Ik heb net m'n reactie wat aangevuld.

 

[chermans74]

Perfect...., hier kan ik mee verder.

Bedankt, chermans.