Saving contradictions in VBA

Fellow Excellers,

I'm having a hard time working out two codes that contradict eachother.
Please take a look at it as I'm out of ideas:

Code 1

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Close workbook without saving changes.
Me.Saved = True
End Sub

Code 2

Sub Clean_Save_Close()
Application.Run "'All-in-one.xlsm'!ThisWorkbook.Clear_ZS_Calc"
Application.Run "'All-in-one.xlsm'!ThisWorkbook.Clear_USD_Calc"
Application.Run "'All-in-one.xlsm'!ThisWorkbook.Sort_Customer_Confirmationlist"
Sheets("4.2").Select
Range("E10").Select
Selection.ClearContents
Range("L10").Select
ActiveCell.FormulaR1C1 = "ne"
Sheets("0").Select
ThisWorkbook.Close savechanges:=True
End Sub

Code 1 prevents the save prompt from showing up whenever you hit X.
Code 2 should be saving the excel (this is set to a button).

Somehow code 1 prevents code 2 from saving the sheet.
Please help!

Regards,
MitchelDZ

Replace Me.Saved=True for this:

Application.DisplayAlerts = False

I like the idea, but that doesn't stop the save prompt.

How about this:

Please Login or Register  to view this content.

So how about changing the Me for thisworkbook

Please Login or Register  to view this content.

This still presents the same problem: it won't let code 2 save the file.

(I really appreciate you trying to help, don't give up on me yet)

In your code 2 set the instruction in the opposite direction at the begining of the code.

Please Login or Register  to view this content.

I got it! :D

RaulRodriguez, thanks for helping me on my way.

The solution:
Since code 2 is closing my Excel anyhow I can turn off all private subs.
The problem was that my private was running all the time even nanoseconds (whatever) before executing the line: ThisWorkbook.Close savechanges:=True

The way it looks now:
Code 1

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Close workbook without saving changes.
ThisWorkbook.Saved = True
End Sub

Code 2

Sub Clean_Save_Close()
Application.EnableEvents = False ' <----- Key to the solution
ThisWorkbook.Saved = False
Application.Run "'All-in-one.xlsm'!ThisWorkbook.Clear_ZS_Calc"
Application.Run "'All-in-one.xlsm'!ThisWorkbook.Clear_USD_Calc"
Application.Run "'All-in-one.xlsm'!ThisWorkbook.Sort_Customer_Confirmationlist"
Sheets("4.2").Select
Range("E10").Select
Selection.ClearContents
Range("L10").Select
ActiveCell.FormulaR1C1 = "ne"
Sheets("0").Select
ThisWorkbook.Close savechanges:=True
End Sub