Stop Excel Asking to Save

[ChaosPup]

Hi all,

I run a very basic 'Save and Close' macro button in one of my spreadsheets (Excel 2016) -

Sub Save_and_Close()

    Application.Quit
    ThisWorkbook.Save
    
End Sub

Problem is, when the button is pressed the sheet saves correctly but I still get this message -

Is there any way to prevent this?

Thanks!

 

[Joe4]

It doesn't seem to make much sense to quit the application (close Excel), and then try to save the file (the file is already closed at that point, so there would be nothing to save!).
I think you need to switch the order of those two commands. And then you wouldn't get that warning, as the file would already just have been saved.

 

[mohadin]

Hi
Try
Ap

Application.DisplayAlerts = False

And

Application.DisplayAlerts = True

May be some thing like

Sub Save_and_Close()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    Application.Quit
End Sub

Not tested

 

[Joe4]

Hi
Try
Ap

Application.DisplayAlerts = False

And

Application.DisplayAlerts = True

That will hide that message, but doesn't get around the issue I mentioned.
There is nothing to save if everything is closed!

Sometimes the messages are telling you something important (i.e. there is an issue with your code), and you need to pay attention to what it is telling you and why it is happening.

 

[ChaosPup]

Thanks everyone,

Swapping the commands over was absolutely correct, can't believe I missed that. That change by itself didn't fix the issue though, I still had to add the the display alerts line.

Sorted now, thanks!

 

[Joe4]

Thanks everyone,

Swapping the commands over was absolutely correct, can't believe I missed that. That change by itself didn't fix the issue though, I still had to add the the display alerts line.

Sorted now, thanks!

I am guessing then that you must have multiple workbooks open, as if it was just the one with the macros, then Save command who be sufficient, and it wouldn't prompt you to save it again.
Anyway, glad you got it sorted out.