Hoe excel laten afsluiten ?

[ErikVI]

hoe kan ik een excel worksheet laten afsluiten als er bvb 10 minuten niets meer werd ingevoerd?

als dit niet kan, hoe kan ik dan een excel worksheet laten afsluiten na een bepaalde tijd
(bvb 30 minuten na het opstarten)

alvast bedankt

ErikVI

 

[[FJ]Hydra]

Plaats deze 2 codes in een "Module":

Dim DownTime As Date

Sub SetTime()
DownTime = Now + TimeValue("00:10:00")
Application.OnTime DownTime, "Sluiten"
End Sub

Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="Sluiten", Schedule = False
End Sub
-------------------------------------------------------------------------------

Plaats deze 4 code in "This WorkBook":

Private Sub WorkBook_Open()
Call SetTime
End Sub

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
Call Disable
End Sub

Private Sub WorkBook_SheetCalculate(Byval Sh As Object)
Call Disable
Call SetTime
End Sub

Private Sub WorkBook_SheetSelection(Byval Target As Excel.Range)
Call Disable
Call SetTime
End Sub

Als je de codes goed leest, dan zul je begrijpen wat er staat. Ik ga er wel van uit dat je er een beetje verstand van hebt.

Gaat helemaal goed komen. Succes :thumb:

 

[[FJ]Hydra]

Met de vorige code gaat de tijd weer in als je iets in de sheet doet, maar als je dat niet wilt, maak dan gebruik van onderstaande codes:

Plaats deze code in "This WorkBook":

Private Sub WorkBook_Open()
Application.Ontime Now+ TimeValue("00:10:00"), "Sluiten"
End Sub

Plaats deze code in een "Module":

Sub Sluiten()
ThisWorrkBook.Close
End Sub

Ik hoop dat er geen spèl vouten in sitten