Help with Macro

[BGY23]

Hi,
I was sure I posted this yesterday but can't find it in the forum.

Anyway I need to auto close a workbook afetr 15 minutes. Its read only to the users.

I found some code on the web to close the book after 15 minutes. What I need your help with is ..

1 When the workbook is opened a pop up message to tell the user it will close in 15mins
2 at 14mins tell them it will close in 1 min.

Here is the code I'm using to close the workbook.

Const idleTime = 15  'seconds
 Dim Start
 Sub StartTimer()
 Start = Timer
 Do While Timer < Start + idleTime
 DoEvents
 Loop
 Application.DisplayAlerts = False
 ActiveWorkbook.Close True
 Application.DisplayAlerts = True
 End Sub

Thanks
Brian

 

[PritishS]

Hi,

For your first query. Try this code. Paste it in 'ThisWorkBook'.

Private Sub Workbook_Open()MsgBox "THIS WORKBOOK WILL BE CLOSED IN 15MIN", 64, "WARNING MSG:"
End Sub

This will Pop up a message "THIS WORKBOOK WILL BE CLOSED IN 15MIN". every time you will open this workbook.

Good Day!
PritishS

 

[PritishS]

Hi,

For ur second query.Try this code. This may be helpful

Sub Timer_at14()    MsgBox "YOU HAVE ONLY 1 MIN LEFT!!"
    Call test ' To Start timer again
End Sub


Sub test()
    Application.OnTime Now + TimeValue("00:14:00"), "Timer_at14"
End Sub

Thanks,

PritishS

 

[BGY23]

hello PritishS,

Thanks so much. The first one works just great. For the second one do I put that in "this workbook" or a new module or somewhere in the code I already have?


Brian

 

[PritishS]

hello PritishS,

Thanks so much. The first one works just great. For the second one do I put that in "this workbook" or a new module or somewhere in the code I already have?


Brian

Hi,
Put the code in a Module.

Thanks,
PritishS

 

[BGY23]

Thanks for all your help. I'll try it tomorrow. Its going home time in the UK

 

[PritishS]

Thanks for all your help. I'll try it tomorrow. Its going home time in the UK

You most welcome. Put that code in a 'New Module'. Have a nice day!!

Thanks
PritishS