ToggleButton terug actief maken

[wieter]

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

.Value = True

Helpt niet.

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

Noot: Als je de beveiliging opheft(wachtwoord: neil)
en je drukt 2x op de ESC-toets, Geraak je uit de FullScreen.

 

[wieter]

Hoe dom kan men zijn!
Het moest natuurlijk: [.Value = False] zijn.
Hier mee is de vraag opgelost.
M'n verontschuldigingen voor deze nutteloze vraag.