Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
Insert "-" in text "1234567890" to have a output like this"123-456-7890" | Excel Discussion (Misc queries) |