Sorry dat het bestand beveiligd is, maar mijn vraag gaat nu net over die beveiliging.
Om grappenmakers en saboteurs zo veel mogelijk te hinderen, is het bestand summier beveiligd.
Het wachtwoord = neil
Nu mijn vraag:
Als je bij de knop: Beveiliging opheffen. Een verkeerd wachtwoord ingeeft.
Wordt de knop, na de melding: "Foutief wachtwoord", niet onmiddelijk terug actief(eerst moet men de knop eens aantikken).
Wat moet ik toevoegen aan de code, zodat de knop onmiddellijk terug actief wordt?
De toevoeging aan de code
Helpt niet.
Noot: Als je de beveiliging opheft(wachtwoord: neil)
en je drukt 2x op de ESC-toets, Geraak je uit de FullScreen.
Om grappenmakers en saboteurs zo veel mogelijk te hinderen, is het bestand summier beveiligd.
Het wachtwoord = neil
Nu mijn vraag:
Als je bij de knop: Beveiliging opheffen. Een verkeerd wachtwoord ingeeft.
Wordt de knop, na de melding: "Foutief wachtwoord", niet onmiddelijk terug actief(eerst moet men de knop eens aantikken).
Wat moet ik toevoegen aan de code, zodat de knop onmiddellijk terug actief wordt?
De toevoeging aan de code
Code:
.Value = True
Code:
Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value = True Then
Response = InputBox("Uw wachtwoord a.u.b.")
If Response <> "neil" Then MsgBox "Foutief wachtwoord": [COLOR="#FF0000"].Value = True[/COLOR]: Exit Sub
.Application.OnKey "{esc}"
.Caption = "Beveiligen"
.BackColor = vbGreen
.ForeColor = vbBlack
Call Begin
Else
.Application.OnKey "{esc}", ""
.Caption = "Beveiliging opheffen"
.BackColor = vbRed
.ForeColor = vbWhite
Call Stoppen
End If
End With
End Sub
en je drukt 2x op de ESC-toets, Geraak je uit de FullScreen.