Show Userform After Idle

[adam]

Hi anyone,

I'm trying to modify the code in the attached workbook so that it shows userform1 after 30 seconds of workbook inactivity.

But my code is not showing me the user form with the time limit.

I would be happy if any one could figure out the reason why my code is not working.

Any help on this would be kindly appreciated.

Thanks in advance.

[StuartR]

I made some minor changes to your StartTimer code and it seems to work fine.

Code: Select all

Sub StartTimer()
    Do
        Start = Timer
        Do While Timer < Start + idleTime
            DoEvents
        Loop
        If Not isActive Then
            UserForm1.Show
        Else
            isActive = False
        End If
    Loop
End Sub

[agibsonsw]

There was a coding error with the if statement. This works for me:

Code: Select all

Sub StartTimer()

Start = Timer
Do While Timer < Start + idleTime
DoEvents
Loop
If Not isActive Then
UserForm1.Show
Else
isActive = False
StartTimer
End If

End Sub

[adam]

Thanks for the reply. I do really apppreciate your help. How could I enable the right click menu from the workbook. Meaning right now ,If I right click a cell I cannot click any function from the menu.

How could I avoid this?

Any help on this would be kindly appreciated.

[Rick Rothstein]

I have attached your workbook modified to activate a timer every 30 seconds from the last time the user made an entry or closed the UserForm.

[adam]

Thanks for the help Rick Rothstein. That was what I was searching for.