Goedemorgen,
Ik kom er niet helemaal uit. Ik wil graag een password op basis van een celwaarde.
Ik heb nu de volgende tekst:
Const PWORD As String = "Password"
Dim response As String
Dim msg As String
msg = "Voer wachtwoord in:"
Do
response = Application.InputBox(Prompt:=msg, _
Title:="Voer wachtwoord in", Type:=2)
If response = CStr(False) Then Exit Sub 'Cancelled
msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"
Loop Until response = PWORD
Afzet_per_klant.Show
Ik wil dus eigenlijk op basis van celwaarde in tabblad "afzet" op basis van cel J20 een password in laten voeren.
Kan dit? En zo ja? Als dit niet kan mag het password ook na een bepaalde datum gewijzigd worden in het script.
Groetjes,
Michard
Ik kom er niet helemaal uit. Ik wil graag een password op basis van een celwaarde.
Ik heb nu de volgende tekst:
Const PWORD As String = "Password"
Dim response As String
Dim msg As String
msg = "Voer wachtwoord in:"
Do
response = Application.InputBox(Prompt:=msg, _
Title:="Voer wachtwoord in", Type:=2)
If response = CStr(False) Then Exit Sub 'Cancelled
msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"
Loop Until response = PWORD
Afzet_per_klant.Show
Ik wil dus eigenlijk op basis van celwaarde in tabblad "afzet" op basis van cel J20 een password in laten voeren.
Kan dit? En zo ja? Als dit niet kan mag het password ook na een bepaalde datum gewijzigd worden in het script.
Groetjes,
Michard