Auto Close a Workbook

Domski

Well-known Member

Joined

Jan 18, 2005

Messages

7,292

• Jan 18, 2009

• #2

Hi,

You can use the OnTime method for this.

Pop this on your ThisWorkbook page in the workbook's VBA project:

Code:

Private Sub Workbook_Open()

Application.OnTime TimeValue("19:00:00"), "close_me"

End Sub

And then this in a standard module in the project:

Code:

Sub close_me()

ThisWorkbook.Close Savechanges:=True

End Sub

It will close the workbook at 19:00 and save any changes.

Dom

 

Upvote 0

MyExcel

Well-known Member

Joined

Sep 25, 2008

Messages

508

• Jan 18, 2009

• #3

Domski
how i can make it close after 10 from its opening

 

Upvote 0

Domski

Well-known Member

Joined

Jan 18, 2005

Messages

7,292

• Jan 18, 2009

• #4

Do you mean 10 minutes after it opens?

Dom

 

Upvote 0

MyExcel

Well-known Member

Joined

Sep 25, 2008

Messages

508

• Jan 18, 2009

• #5

yes dom
i mean that

 

Upvote 0

Domski

Well-known Member

Joined

Jan 18, 2005

Messages

7,292

• Jan 18, 2009

• #6

Change the first bit of code to this:

Code:

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:10:00"), "close_Me"

End Sub

Dom

 

Upvote 0

MyExcel

Well-known Member

Joined

Sep 25, 2008

Messages

508

• Jan 18, 2009

• #7

dom
i want to ask u about ur code
how is this code run automaticly
when work book open
cuz it is name
Private Sub Workbook_Open
i don't know how it is happen
i am sorry for this question

 

Upvote 0

Domski

Well-known Member

Joined

Jan 18, 2005

Messages

7,292

• Jan 18, 2009

• #8

It's what is known as a 'workbook event'. There a number of events that can automatically be called to execute when specific things happen within a workbook.

In the VBA editor if you view the ThisWorkbook code page of an Excel file there will be 2 drop downs at the top of the page. Change the left hand one to say Workbook and then the right hand one will display a list of events that are available.

If you select one it will pop the first and last line of the event's code onto the sheet for you and then you can just pop whatever code you want to kick off when that event triggers within those lines.

There are also numerous 'worksheet events' that are available within each worksheet's code page.

Hope that makes sense.

Dom

 

Upvote 0

MyExcel

Well-known Member

Joined

Sep 25, 2008

Messages

508

• Jan 18, 2009

• #9

There are also numerous 'worksheet events' that are available within each worksheet's code page.

Click to expand...

i think auto_close on of this events
how i can know more events

 

Upvote 0

S

Steveo59

Board Regular

Joined

Oct 19, 2007

Messages

204

• Jan 18, 2009

• #10

Domski said:

Hi,

You can use the OnTime method for this.

Pop this on your ThisWorkbook page in the workbook's VBA project:

Code:

Private Sub Workbook_Open()

Application.OnTime TimeValue("19:00:00"), "close_me"

End Sub

And then this in a standard module in the project:

Code:

Sub close_me()

ThisWorkbook.Close Savechanges:=True

End Sub

It will close the workbook at 19:00 and save any changes.

Dom

Click to expand...

Thanks Domski

 

Upvote 0