Hoe kan ik het openen van een PerfectView toepassing(*.pv) beveiligen met een wachtwoord ?
Oplossing Maak in script een functie OpenTest() | Function OpenTest() If FileType = ftPerfectView8 Then OpenTest = InputS("Geef wachtwoord in","",10, isPassword + isRequired) = "WachtWoord" Else OpenTest = True End If End Function |
Vervang "WachtWoord" voor het betreffende wachtwoord bijvoorbeeld "2as812" Roep deze functie aan bij de rechten van de applicatie via de PerfectView Designer. Kies in de vertikale werkbalk voor de optie Opties. In het tabblad Rechten kunt u nu de rechten instellen voor het openen van deze toepassing in PerfectView. Hierna volgt een versie met een loop erin: | Function Aanmelden() Dim Response
Aanmelden = False
Response = InputS("Vul het wachtwoord in.Aanmelden is alleen nodig" & vbCrlf & _ "wanneer u een medewerker bent van de organisatie PerfectView.", ,11, isPassword + isRequired ) Do While Response <> "" Select Case Response Case "PerfectView" Aanmelden = True Exit Do Case Else Msgbox "Vul het juiste wachtwoord in. Aanmelden is alleen nodig " & vbCrlf & _ "wanneer u een medewerker bent van de organisatie PerfectView.", vbOkOnly, "PerfectView" Response = InputS("Vul het wachtwoord in.", , 11, isPassword) End Select Loop End Function |
|