Kruisje weg of niet werkend

Status
Niet open voor verdere reacties.
Zo kunnen we natuurlijk niet zien wat StopTimer doet, maar maak er eens dit van:
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    Exit Sub
    Call StopTimer
End Sub

Maar hoe wil je dan je document op enig moment wel sluiten?
 
edmoor zei:
Zo kunnen we natuurlijk niet zien wat StopTimer doet, maar maak er eens dit van:
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    Exit Sub
    Call StopTimer
End Sub

Maar hoe wil je dan je document op enig moment wel sluiten?
Klik om te vergroten...

ga ik doen, en het document hoeft nooit te sluiten.
 
het werkt 1 keer en geeft daarna gelijk weer het opslaan/niet opslaan bericht.
 
Dat kan eigenlijk niet, maar probeer dan dit eens:
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    Call StopTimer
    ThisWorkbook.Saved = True
End Sub
 
Laatst bewerkt:
edmoor zei:
Dat kan eigenlijk niet, maar probeer dan dit eens:
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
    Call StopTimer
    ThisWorkbook.Saved = True
End Sub
Klik om te vergroten...

nope werkt niet, doet exact hetzelfde
 
Dan kan ik er niks meer van zeggen zonder je document te zien.
 
Vergeefse moeite: Alt-F4, of ctrl-Break.
 
oh okaay, ik ga nu eerst mezelf omkleden en naar huis toe fietsen vanaf werk. alweer een lange dag achter de rug.
In ieder geval bedankt tot zover.
 
@VenA nog onbekend met de uroloog ?
 
Wat is nut en noodzaak hiervan? Pc uit, taakbeheer, alt+f4. Genoeg manieren om Excel te sluiten en vele mogelijkheden zijn Windows native dus niet uit te zetten. Zie geen probleem om Excel opnieuw te starten mocht dit onverhoopt toch gesloten worden. Tenzij het bedrijfskritisch is natuurlijk, maar dan wil ik je toch sterk aanraden naar een degelijker oplossing te gaan zoeken.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan