"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
automatisch afsluiten en opslaan excel
- Onderwerp starter VDM2
- Startdatum
- Status
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.756
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
Dat kan met een Timer. Kijk eens hier:
http://www.snb-vba.eu/VBA_Application.OnTime.html
http://www.snb-vba.eu/VBA_Application.OnTime.html
Hij werkt nu op zich wel, echter de timer reset niet zodra ik wijzigingen aanbreng.
Hij sluit dus af na 3 min, ongeacht of ik aan het werk ben of niet.
Het volgende staat in "thisworkbook":
' eerst een timer maken (in dit voorbeeld 5 minuten)
Private Sub Workbook_Open()
RunTime
End Sub
' indien wel wijziging, dan de "timer" resetten
Private Sub Worksheet_Change(ByVal Target As Range)
Application.OnTime EndTime, "CloseWB", , False 'uitvoering cancelen
MsgBox "Timer wordt opnieuw ingesteld."
RunTime
End Sub
Hij sluit dus af na 3 min, ongeacht of ik aan het werk ben of niet.
Het volgende staat in "thisworkbook":
' eerst een timer maken (in dit voorbeeld 5 minuten)
Private Sub Workbook_Open()
RunTime
End Sub
' indien wel wijziging, dan de "timer" resetten
Private Sub Worksheet_Change(ByVal Target As Range)
Application.OnTime EndTime, "CloseWB", , False 'uitvoering cancelen
MsgBox "Timer wordt opnieuw ingesteld."
RunTime
End Sub
- Status
