UserForm Time limit

[Chicken6]

How can I have a userform open for only three minutes before it unloads (saving what was inputted during that time)?

I have a form where the users only have 3min to finish (a Spatial Psych test). I have tried the following code but it doesn't work. (just experimenting with 10 seconds for now.)

I haven't put all the questions in the form yet. I will when I know I can get the timer to work. If not, they get to do it on paper!

'module

Option Explicit

Private Sub KillTheForm()
ActiveWorkbook.Save
Unload UserFormSpatial
End Sub

'Userform object

Option Explicit

Private Sub UserFormSpatial_Activate()
Application.OnTime (Now + TimeValue("00:00:10")), "KillTheForm"
End Sub

 

[hippiehacker]

like this

module:

Public Sub UnloadIt()
    Unload UserForm1
End Sub


Sub test()
UserForm1.Show vbModeless
End Sub

userform:

[CODE]Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "UnloadIt"
End Sub

or

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "UnloadIt"
End Sub

both of those methods are working

 

[Chicken6]

Hey Hippiehacker,
thanks for the speedy reply!

Tried it out, but not working. However I have a feeling it has something to do with the fact I am using a Mac. I am going to test it out on the PC in the lab tomorrow, and will let you know!

Thanks heaps!

 

[hippiehacker]

no idea about the MAC Version of Excel but assuming it should work as well but you might want to use the F1 button for help maybe something is explained on Application

and look here they have done it in another way http://www.mrexcel.com/forum/excel-questions/633721-excel-mac-application-ontime-error.html

 

[Chicken6]

Hey HH,
thanks for the link, didn't see that one! I tried out both the delay and the loop methods, with no success. I reckon it's something to do with my machine. I am also using Excel 2011 on a Mac. However I won't get concerned until your method doesn't work on the lab machines, which are all PCs, and upon which the experiment will run. Will let you know tomoz.

Thanks again!
C6

 

[Chicken6]

Yes!
it worked on the PC in the lab. I think it was my error rather than the OS. From your code I had changed the name of the UserForm in the UserForm code, to match the name (UserForm1) rather than just leave it as UserForm. I picked up the error when I just copied and pasted your code without change and it worked.

Thanks again HH

 

[hippiehacker]

nice to hear that it finally worked.