Help! Where does this code go?

[zakasnak]

Do I put this in the worksheet tab "View Code"? That's where it would make sense to me....

I can't tell that it's working, tho.

Private Sub Workbook_Open()
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p> </o:p>
Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes
Application.DisplayAlerts = True
TimeInMinutes = 30 'Timer is set for 180 minutes; change as needed.
If TimeInMinutes > 5 Then
TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60)
    Start = Timer
    Do While Timer < Start + TotalTimeInMinutes
        DoEvents
    <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:place w:st="on">Loop</st1:place>
    Finish = Timer
    TotalTime = Finish - Start
    Application.DisplayAlerts = False
    MsgBox "This file has been open for " & TotalTime / 60 & " minutes. You have 5 minutes to save before Excel closes."
End If
<o:p> </o:p>
Start = Timer
    Do While Timer < Start + (5 * 60)
        DoEvents
    <st1:place w:st="on">Loop</st1:place>
    Finish = Timer
    TotalTime = Finish - Start
    Application.DisplayAlerts = False
    MsgBox "Excel will now close."
    Application.Quit
End Sub

 

[zakasnak]

If you look at the code it manipulates TimeInMinutes to get total time. Try replacing

TimeInMinutes=30

with

TimeInMinutes=6

It should then give you a message in about 36 minutes from opening the workbook.

... so if it says 180 minutes, it really means 180+30 minutes?

 

[VoG]

No, this is the relevant part of the code

TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60)

 

[zakasnak]

No, this is the relevant part of the code

TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60)

So : TotalTimeInMinutes = (180 * 60) - (5 * 60) = 10500 (MINUTES ... or SECONDS?)

I see that further down in the code, it divides that # by 60 & says it's been open for xMinutes.... or 175.

Am I reading it correctly?

 

[zakasnak]

So ... I've left this test sheet open for almost an hour & no message box & no closing of Excel...

What am I doing wrong?

 

[VoG]

Where did you get this code from?

 

[zakasnak]

Where did you get this code from?

http://www.teachmsoffice.com/excel-macros/close-workbook-time-limit,13

It may have worked. I looked up & it wasn't open anymore, but I didn't see a msg box...

 

[zakasnak]

http://www.teachmsoffice.com/excel-macros/close-workbook-time-limit,13

It may have worked. I looked up & it wasn't open anymore, but I didn't see a msg box...

It's also posted here: http://www.mrexcel.com/forum/showthread.php?t=454714&highlight=TotalTimeInMinutes

 

[VoG]

Tushar's code is undoubtedly better but try replacing

If TimeInMinutes > 5 Then

with

If TimeInMinutes > 1 Then

and enter a short time. It looks like the code should work but I haven't tested it.

 

[zakasnak]

Tushar's code is undoubtedly better ...

What is this?

 

[VoG]

Your second link. Are you keeping up?