Automactically save changes to workbook and close

clares · Apr 4th, 2002, 07:58 AM

Does anyone know the code that I can attach to a button to automactically save changes and close workbook, without having the box appear asking me if I want to save changes!

As per usual, thanks in advance

ps using Excel 2000

willlobb · Apr 4th, 2002, 08:00 AM

Hiya, here it is:
ActiveWorkbook.Saved = True
Application.Quit
Will

AJ · Apr 4th, 2002, 08:00 AM

To save:
ActiveWorkbook.Close SaveChanges:=1
or
ActiveWorkbook.Close True

Or to not save:
ActiveWorkbook.Close SaveChanges:=0
or
ActiveWorkbook.Close False

Rgds
AJ

clares · Apr 4th, 2002, 08:06 AM

Thanks, works like a treat.

On 2002-04-04 07:00, AJ wrote:

To save:
ActiveWorkbook.Close SaveChanges:=1
or
ActiveWorkbook.Close True

Or to not save:
ActiveWorkbook.Close SaveChanges:=0
or
ActiveWorkbook.Close False

Rgds
AJ
[/quote]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 4th, 2002, 07:58 AM	#1
clares Board Regular Join Date: Mar 2002 Location: Portsmouth.UK Posts: 543	Does anyone know the code that I can attach to a button to automactically save changes and close workbook, without having the box appear asking me if I want to save changes! As per usual, thanks in advance ps using Excel 2000

Apr 4th, 2002, 08:00 AM	#2
willlobb Board Regular Join Date: Mar 2002 Posts: 103	Hiya, here it is: ActiveWorkbook.Saved = True Application.Quit Will

Apr 4th, 2002, 08:00 AM	#3
AJ Board Regular Join Date: Mar 2002 Location: =ActiveCell.Address Posts: 478	To save: ActiveWorkbook.Close SaveChanges:=1 or ActiveWorkbook.Close True Or to not save: ActiveWorkbook.Close SaveChanges:=0 or ActiveWorkbook.Close False Rgds AJ

Apr 4th, 2002, 08:06 AM	#4
clares Board Regular Join Date: Mar 2002 Location: Portsmouth.UK Posts: 543	Thanks, works like a treat. On 2002-04-04 07:00, AJ wrote: To save: ActiveWorkbook.Close SaveChanges:=1 or ActiveWorkbook.Close True Or to not save: ActiveWorkbook.Close SaveChanges:=0 or ActiveWorkbook.Close False Rgds AJ [/quote]