Good morning,
I am aware that this issue has been raised
several times, however, i have yet to find a string of code that
actually gets RID of the "would you like to save prompt"!

I am using excel 2003 and i have tried all of the codes below with NO
success:

1) Windows("file_name.xls").Activate
ActiveWorkbook.Close (savechanges = False)

2) currentWorkbook.Close savechanges = False

3) Application.DisplayAlerts = False
ActiveWorkbook.Close

Nothing i have tried from previous articles has helped; any advice
would be greatly appreciated.

Hi Kent,

In the 'This Workbook' object:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub

Cheers,
JF.

I've used

Application.DisplayAlerts = FALSE

Save code

Application.DisplayAlerts = TRUE

with success. I usually do this though so that I know I'm working on the
correct workbook.

Dim aWB as Workbook

Set aWB = Nothing
on Error resume next
Set aWB = Workbooks("file_name.xls")
on error goto 0

if Not aWB is nothing then ...
Do whatever you'd do with the aWB.
end if
--
HTH,
Barb Reinhardt



"(E-Mail Removed)" wrote:

> Good morning,
> I am aware that this issue has been raised
> several times, however, i have yet to find a string of code that
> actually gets RID of the "would you like to save prompt"!
>
> I am using excel 2003 and i have tried all of the codes below with NO
> success:
>
> 1) Windows("file_name.xls").Activate
> ActiveWorkbook.Close (savechanges = False)
>
> 2) currentWorkbook.Close savechanges = False
>
> 3) Application.DisplayAlerts = False
> ActiveWorkbook.Close
>
> Nothing i have tried from previous articles has helped; any advice
> would be greatly appreciated.
>
>
>

Try

ActiveWorkbook.Saved = True
ActiveWorkbook.Close

From XL 2003 Help:

You can set this property to True if you want to close a modified
workbook without either saving it or being prompted to save it.


HTH,
JP


On Mar 6, 9:37*am, Kent.Bouc...@tbs-sct.gc.ca wrote:
> Good morning,
> * * * * * * * * * * * I am aware that this issue hasbeen raised
> several times, however, i have yet to find a string of code that
> actually gets RID of the "would you like to save prompt"!
>
> I am using excel 2003 and i have tried all of the codes below with NO
> success:
>
> 1) Windows("file_name.xls").Activate
> * * ActiveWorkbook.Close (savechanges = False)
>
> 2) currentWorkbook.Close savechanges = False
>
> 3) Application.DisplayAlerts = False
> * * ActiveWorkbook.Close
>
> Nothing i have tried from previous articles has helped; any advice
> would be greatly appreciated.

maybe this

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub

Mike

"(E-Mail Removed)" wrote:

> Good morning,
> I am aware that this issue has been raised
> several times, however, i have yet to find a string of code that
> actually gets RID of the "would you like to save prompt"!
>
> I am using excel 2003 and i have tried all of the codes below with NO
> success:
>
> 1) Windows("file_name.xls").Activate
> ActiveWorkbook.Close (savechanges = False)
>
> 2) currentWorkbook.Close savechanges = False
>
> 3) Application.DisplayAlerts = False
> ActiveWorkbook.Close
>
> Nothing i have tried from previous articles has helped; any advice
> would be greatly appreciated.
>
>
>

you need a colon before the equals sign

Workbooks(fname).Close savechanges:=False

--

Gary
Excel 2003


<(E-Mail Removed)> wrote in message
news:59f145b7-3479-4080-b8fa-(E-Mail Removed)...
> Good morning,
> I am aware that this issue has been raised
> several times, however, i have yet to find a string of code that
> actually gets RID of the "would you like to save prompt"!
>
> I am using excel 2003 and i have tried all of the codes below with NO
> success:
>
> 1) Windows("file_name.xls").Activate
> ActiveWorkbook.Close (savechanges = False)
>
> 2) currentWorkbook.Close savechanges = False
>
> 3) Application.DisplayAlerts = False
> ActiveWorkbook.Close
>
> Nothing i have tried from previous articles has helped; any advice
> would be greatly appreciated.
>
>

Do you want to save it or not?

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



<(E-Mail Removed)> wrote in message
news:59f145b7-3479-4080-b8fa-(E-Mail Removed)...
> Good morning,
> I am aware that this issue has been raised
> several times, however, i have yet to find a string of code that
> actually gets RID of the "would you like to save prompt"!
>
> I am using excel 2003 and i have tried all of the codes below with NO
> success:
>
> 1) Windows("file_name.xls").Activate
> ActiveWorkbook.Close (savechanges = False)
>
> 2) currentWorkbook.Close savechanges = False
>
> 3) Application.DisplayAlerts = False
> ActiveWorkbook.Close
>
> Nothing i have tried from previous articles has helped; any advice
> would be greatly appreciated.
>
>

You've got to be careful with your syntax:

Windows("file_name.xls").Activate
ActiveWorkbook.Close savechanges:=False

or just:

workbooks("file_name.xls").Close savechanges:=False


(E-Mail Removed) wrote:
>
> Good morning,
> I am aware that this issue has been raised
> several times, however, i have yet to find a string of code that
> actually gets RID of the "would you like to save prompt"!
>
> I am using excel 2003 and i have tried all of the codes below with NO
> success:
>
> 1) Windows("file_name.xls").Activate
> ActiveWorkbook.Close (savechanges = False)
>
> 2) currentWorkbook.Close savechanges = False
>
> 3) Application.DisplayAlerts = False
> ActiveWorkbook.Close
>
> Nothing i have tried from previous articles has helped; any advice
> would be greatly appreciated.

--

Dave Peterson