Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3
Default To say "no" with vba

Hi,
I have a macro
....Windows("Data.xls").Activate
ActiveWindow.Close
Application.ScreenUpdating = True

.....

that closes the workbook and it ask me everytime "Do you
want to save the changes you made?" and i must click it NO
Is it possibile not having this question automatize the
answer "NO". Regards
Pet
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 47
Default To say "no" with vba

Hi Pet

You should close the workbook, not the window, or it will err if it has more than one windows. What you want is
"Application.DisplayAlerts". Also, setting Saved to true would avoid the message. Try this, it uses both techniques and should be
100% foolproof:

Sub CloseIt()
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Workbooks("Data.xls").Saved = True
Workbooks("Data.xls").Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

--
HTH. Best wishes Harald
Excel MVP

Followup to newsgroup only please.

"Peter" skrev i melding ...
Hi,
I have a macro
...Windows("Data.xls").Activate
ActiveWindow.Close
Application.ScreenUpdating = True

....

that closes the workbook and it ask me everytime "Do you
want to save the changes you made?" and i must click it NO
Is it possibile not having this question automatize the
answer "NO". Regards
Pet



Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell Steve Kay Excel Discussion (Misc queries) 2 August 8th 08 01:54 AM
change "true" and "false" to "availble" and "out of stock" inthestands Excel Worksheet Functions 2 July 19th 07 07:05 PM
HELP on "left","right","find","len","substitute" functions serene83 Excel Discussion (Misc queries) 5 June 27th 06 02:23 AM
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next BCB New Users to Excel 7 May 13th 06 10:02 PM
Insert "-" in text "1234567890" to have a output like this"123-456-7890" Alwyn Excel Discussion (Misc queries) 3 October 25th 05 11:36 PM


All times are GMT +1. The time now is 01:31 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"