zelfsluitend document na inactiviteit

[longron]

Beste alle,

ik heb procedure gevonden om mijn document te sluiten als het bepaalde tijd niet wordt gebruikt maar volgens mij werkt het niet.
Ik begrijp niet zo goed wat er verkeerd is.
Graag jullie advies.

Thanks

Ronald

 

[popipipo]

Sub SetTimer()
    Dim DownTime As Date

    DownTime = Now + TimeValue("00:10:00")
    Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", Schedule:=True
End Sub

Dim DownTime As Date

Sub SetTimer()
    DownTime = Now + TimeValue("00:10:00")
    Application.OnTime EarliestTime:=DownTime, Procedure:="ShutDown", Schedule:=True
End Sub

Zoek de verschillen

 

[longron]

dim buiten de procedure.
Anders wordt hij steeds geriset?

 

[longron]

@Popipipo
In mij bestandje staat " Dim DownTime As Date" buiten de routine,
dat zal dan goed zijn. Of ik zie niet wat er verschillend is.
Kun je iets duidelijker zijn?

thanks

 

[HSV]

Kijk op de site van www.snb-vba.eu

 

[longron]

Hai HSV

kun je iets gerichter zijn.

Doel je op gebruik van dim of staat daar ergens de juiste procedure?

Heb gekeken maar zo niet direct gevonden. mogelijk dat ik verkeerd zoek.

Ik hoor het graag.

Groetjes
Ronald

 

[HSV]

Typ eens in Google:

snb-vba.eu Timer