About Us

ordnance1[_2_]

Thanks for taking the time to help

"Javed" wrote in message
...
On Apr 24, 9:48 am, ordnance1
wrote:
My Auto_Open code runs a timer that will close a document if it has been
open
for 15 minutes (it is shared by a number of users, some of them tend to
forget to close out when they are done). What I was wondering, since I
want
to create a template document to roll out each year, and I do not want to
have to remember to change the document name in the code each year. Is
there
anyway that the code can be made aware of the document name? I can not
use
ActiveWorkbook since it might not be the active document at the time.

Sub Auto_Open()
'
' AutoRun Macro
' Macro recorded 2/3/2001 by Patrick C. Simonds
'

bSELCTIONCHANGE = False

Events.Enable_Events

Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes
Application.DisplayAlerts = True

TimeInMinutes = 15 '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
Loop
Finish = Timer
TotalTime = Finish - Start
Application.DisplayAlerts = False
End If

Start = Timer
Do While Timer < Start + (5 * 60)
DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start
Application.DisplayAlerts = False

Workbooks("VacationCalendar 2010.xlsm").Save
Workbooks("VacationCalendar 2010.xlsm").Close

End Sub

If it is in excel use Thisworkbook
If it is in wordl use Thisdocument

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I make VBA code usable on all worksheets of a workbook?	tarobb	Excel Programming	1	May 2nd 09 12:25 AM
Make a shortcut to a file - code	Jim	Excel Programming	4	July 8th 08 09:46 PM
Can I make my workbook a demo file?	Mr BT[_3_]	Excel Worksheet Functions	11	August 12th 07 11:58 PM
Make a text file from Excel workbook	Ramana Murthy	Excel Discussion (Misc queries)	7	January 3rd 05 05:37 PM
Code to make sheets in a workbook visible	Jonsson[_4_]	Excel Programming	5	January 30th 04 12:38 PM

Menu

About Us