CygneVoler
Gebruiker
- Lid geworden
- 15 mei 2015
- Berichten
- 234
Hoi excellers,
Bij het openen van het Workbook() wordt de volgende code gebruikt voor het aftellen van de tijd. (van 15 min naar 0).
5 seconden voor het einde wordt een Popup getoond met de waarschuwing dat het programma over 5 sec. automatich wordt afgesloten.
Dit werkt allemaal goed.
In de Module staat de volgende code en het oproepen van een "waarschuwingsbericht."
Nu wil ik voor onderhoud dat de (gestarte)tijd onderbroken wordt, of beter gezegd wordt gestopt.
Dat doe ik met de volgende code:
Ook dat werkt.Dat wil zeggen de tijd stopt in de actieve cel N1
Maar wat ik niet voor elkaar krijg is dat wanneer ik de "stopknop" geactiveerd heb,
dat de melding van de warningmessage achterwege blijft.
Iemand enig idee?
Graag jullie advies/hulp
Bij het openen van het Workbook() wordt de volgende code gebruikt voor het aftellen van de tijd. (van 15 min naar 0).
5 seconden voor het einde wordt een Popup getoond met de waarschuwing dat het programma over 5 sec. automatich wordt afgesloten.
Dit werkt allemaal goed.
Code:
EndTime = Now + TimeValue("00:15:06")
WarningTime = EndTime - TimeValue("00:00:05")
Application.OnTime WarningTime, "Afsluiten", , True
Application.OnTime EndTime, "CloseWB", , True
AutoSluiten.Show
StartAftellen
In de Module staat de volgende code en het oproepen van een "waarschuwingsbericht."
Code:
Sub CloseWB()
Application.DisplayAlerts = False
With ThisWorkbook
.Saved = True
.Close
End With
End Sub
Sub Afsluiten()
WarningMessage.Show
End Sub
Sub VervolgAftellen()
NextTime = Now + TimeValue("00:00:01")
Sheet11.Range("N1").Value = EndTime - Now
If EndTime - Now < 0 Then CloseWB 'Exit Sub
Application.OnTime NextTime, "VervolgAftellen"
End Sub
Sub StartAftellen()
Sheet11.Unprotect Password:="XXX"
NextTime = Now + TimeValue("00:00:00")
Sheet11.Range("N1").NumberFormat = "mm:ss"
Application.OnTime NextTime, "VervolgAftellen"
Sheet11.Protect Password:="XXX"
End Sub
Nu wil ik voor onderhoud dat de (gestarte)tijd onderbroken wordt, of beter gezegd wordt gestopt.
Dat doe ik met de volgende code:
Code:
Application.OnTime NextTime, "VervolgAftellen", , False
Application.OnTime EndTime, "CloseWB", , False
Ook dat werkt.Dat wil zeggen de tijd stopt in de actieve cel N1
Maar wat ik niet voor elkaar krijg is dat wanneer ik de "stopknop" geactiveerd heb,
dat de melding van de warningmessage achterwege blijft.
Iemand enig idee?
Graag jullie advies/hulp