Making a quastionaire - No clicking back

Hey guys!

I am making a quastionaire in excel since other programs dont seem to do what i want. Now i have a couple of questions.

1st - Can i make a click button to make someone go to the next sheet/question
2nd - How can i make sure someone is not able to click back to the previous sheet
3rd - Is there a possibility to let someone only look at a sheet for 20 seconds in which it then automatically goes to the next sheet without that person being able to
go back to this sheet?

Thanks a lot guys!

I assume that you will be using a workbook.

1. So you can put a button on each sheet to make it move to the next sheet.
I would increment a named variable each time.

2. I would put a sheet specific macro on each sheet so that if the user clicks on a tab,
the macro will take the user to the next sheet in the sequence and no other sheet.

3. Finally I would use an ontime macro to increment your named variable and move to the next sheet.

I will create something for you.

That sounds awesome! if you could show me how that is done that would be awesome!! Thanks a lot Mahmetcik!!!

If you need my email, its martijn.vanderveldt@hotmail.com

This is the sheet specific macro that stops you going back or forward.

Private Sub Worksheet_Activate()
Sheets(MartinT).Select
End Sub

NB: The array is the max time on a sheet,

These are the main macros:

Option Base 1
Public MyArray As Variant
Public MartinT As Integer

Sub Auto_Open()
Sheets(1).Select
MyArray = Array(20, 30, 20, 30, 20, 30, 20, 30, 20, 30)
MartinT = 1
Application.OnTime Now + TimeValue("00:00:" & MyArray(MartinT)), "ChangeSheet"
End Sub

Sub ChangeSheet()

MyArray = Array(20, 30, 20, 30, 20, 30, 20, 30, 20, 30)

If MartinT < 1 Or MartinT > 10 Then MartinT = 1
If MartinT < 10 Then
MartinT = MartinT + 1
Sheets(MartinT).Select
Application.OnTime Now + TimeValue("00:00:" & MyArray(MartinT)), "ChangeSheet"
Else
On Error Resume Next
EndTime = CStr(Time + TimeSerial(0, 0, 5))
Application.OnTime EarliestTime:=EndTime, Procedure:="ChangeSheet", Schedule:=False

End If
End Sub