Disable or auto-answer Do you want to save the changes in “workbook” 1

[Eseke]

I wanted to know if it was possible to automatically answer the message box “Do you want to save the changes in “workbook”” with NO.
This is because I already have a macro that saves the sheet under a unique name. And after saving resets the entire sheet so when I’m done I can start without any trouble and reuse the macro to safe and reset.
So when I’m finally done I don’t want to save.

 

[Molby]

Presumably your trying to close an Excel workbook if your getting this message, in which case try using:

Workbooks("YourWorkbookName").Close (False)

 

[xlhelp]

add this line in your macro:

Workbooks("Workbookname.xls").Close Savechanges:=False

Member- AAAA Association Against Acronym Abusers

 

[Eseke]

I will try it.

Thanks for the quick response.

 

[Eseke]

It didn’t work but that will come because of a part of the macro that I use to name my saved workbook.

The macro that I use is as followed:
ChDir "C:\ resultaten\ "
ActiveWorkbook.SaveAs Filename:= _
"C:\ resultaten\resultaten" & Format$(Now, "YYMMDD_HHMMSS") & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

Each time that I use the macro will result in a unique name and that is part of the purpose of the macro.

Is it still possible to use this code and still close the opened workbook.

 

[Molby]

As you are saving the workbook with a name down to the second, I would apply the time to a variable and then use that to save and close the workbook.

tim$ = format(now, "yymmdd_hhmmss")
ActiveWorkbook.SaveAs Filename:= _
        "C:\ resultaten\resultaten" & tim$ & ".xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

workbooks(resultaten" & tim$ & ".xls").close (false)

 

[Eseke]

Thanks Molby it helped me for the most part.