Warning message if user has been in workbook for longer than 10 minutes

Hi guys,

I have a spreadsheet which needs to be used by multiple users, unfortuantely there are too many features on the sheet that don't work in a shared spreadsheet.

I would therefore like to add some kind of splashscreen/message box to tell a user in red writing after 20 minutes "*WARNING& You have been in this spreadsheet for longer than 20 minutes, would you like to exit as other users may want to use this workbook?". If yes is selected the spreadsheet prompts for closing (obviously asking if you would like to save if any changes have been made).

Any help would be appreciated.

I have tried to use the code you have suggested in Private Sub Workbook_Open ()

dim d as date

d=time + timeval("00:20:00")
Application.OnTime t, "UserForm1", , False

Although I know the Userform reference may be incorrect, I am receiving an error "D- Time + Timeval" Compile Error Sub or Function not defines.

I have now used the following code to resolve my issue.

Please Login or Register  to view this content.

Is there any way to get excel to take excel out of MINIMIZE and display the message if the user has excel minimized.