Peter B
Gebruiker
- Lid geworden
- 8 feb 2007
- Berichten
- 672
Volgens mij heeft E v R in post #19 het daadwerkelijke probleem bij de kop.
Sluitknop is onder normale omstandigheden (ik druk niet op "Stop"; ik log normaal binnen 3x in) altijd False. Dus bij de eerste keer aanroepen van de before_close routine wordt altijd Cancel op True gezet. En zoals geleerd van VenA in #6 wordt dan het bestand niet afgesloten. Na het de eerste keer aanroepen van het before_close event zal n.a.v. dit event Sluitknop op True staan. En dan werkt de routine dus wel naar behoren.
Ik denk dat de oplossing is om Sluitknop in de userform op True te zetten:
Sluitknop is onder normale omstandigheden (ik druk niet op "Stop"; ik log normaal binnen 3x in) altijd False. Dus bij de eerste keer aanroepen van de before_close routine wordt altijd Cancel op True gezet. En zoals geleerd van VenA in #6 wordt dan het bestand niet afgesloten. Na het de eerste keer aanroepen van het before_close event zal n.a.v. dit event Sluitknop op True staan. En dan werkt de routine dus wel naar behoren.
Ik denk dat de oplossing is om Sluitknop in de userform op True te zetten:
Code:
Private Sub CommandButton1_Click()
Dim rol As String
'Ucase makes sure everything is in capitals - easier to compare
ActiveWorkbook.Unprotect "admin"
[B]SluitKnop = True[/B]
Naam = Me.ComboBox1.Value
etc.
etc.