How to add a Timer For Excel Sheet

Hello everyone,

I wonder if anyone can help me, I have created a multibale choice English test the duration of the test is 30 Minutes.
what i want to do is to set a timer after 30 Minutes. you can not enter anymore data to the excel sheet or may be gives a bob up message just saving the data and closes

Plese Help
Attached is my English Test

Originally Posted by hamjam

Hello
Did you find a solution to your question ?

Regards

No not yet, i can not find a code that after 30 Minutes from starting the test saves and closes the excel sheet
the thing is, i test alot of people i can not keep track of them all

Originally Posted by hamjam

Hello
This will do a silent countdown and then will stop the user and close the spreadsheet.

See if that does the job.

Public Sub Countdown()
    Dim start, finish As Long
    timelimit = 30 * 60           '30 minutes, can be changed
    start = Timer                 'Set start time.
    finish = start + timelimit    'set finish time
    Do While Timer < finish And stopped = False
        DoEvents    ' other things continue
    Loop
    MsgBox "TIME IS UP"
    ActiveWorkbook.Save
    Application.Quit
End Sub

Regards

thank you so much for your help, it is great this is exactly what i was looking for

Regards