Close out without saving

[talytech]

I have a workbook that displays a form from a button (Riskform.Show). On that form is an approve button. When the user clicks that button I want an email sent and the workbook closed without it asking you to save. I thought my code was ok but it promts me to save. Can someone please assist me with this problem? Here is my code behind the Approve button on the userform. The userform is called "RiskForm"

Dim theName, theSub, theRecipient As String
        
    
    If Worksheets("sheet1").CheckBox1.Value = True And Worksheets("sheet1").CheckBox2.Value = False Then
        RiskForm.Hide
        theName = "FTE - " & Worksheets("sheet1").Range("c21") & " " & Worksheets("sheet1").Range("f21") & " " & Worksheets("sheet1").Range("h21")
        theSub = "SUBMITTAL: EXCEPTION REQUEST FORM FOR (" & theName & ")"
                
        theRecipient = "corporate_security@fanniemae.com"
        ActiveWorkbook.SendMail theRecipient, theSub
        
        ActiveWorkbook.Close SaveChanges:=False
        Application.Quit
    ElseIf Worksheets("sheet1").CheckBox1.Value = False And Worksheets("sheet1").CheckBox2.Value = True Then
        RiskForm.Hide
        theName = "Contractor - " & Worksheets("sheet1").Range("c25") & " " & Worksheets("sheet1").Range("f25") & " " & Worksheets("sheet1").Range("h25")
        'send the email
        theSub = "SUBMITTAL: EXCEPTION REQUEST FORM FOR (" & theName & ")"
        theRecipient = "corporate_security@talytech.com"
        ActiveWorkbook.SendMail theRecipient, theSub
        
        ActiveWorkbook.Close SaveChanges:=False
        Application.Quit
    End If

[Simon Lloyd]

You just need the line:
[VBA]
Thisworkbook.Saved = True
[/VBA]it tells excel that the save has been performed even though it hasn't!

[talytech]

thank you. Do I put that line after

ActiveWorkbook.Close SaveChanges:=False
        Application.Quit

or do I just replace the activeworkbook.close savechanges:= false with Thisworkbook.Saved = True?

[mdmackillop]

Please use linebreaks where long lines of code require scrolling.

[Simon Lloyd]

thank you. Do I put that line after

ActiveWorkbook.Close SaveChanges:=False
        Application.Quit

or do I just replace the activeworkbook.close savechanges:= false with Thisworkbook.Saved = True?

You use it like this [VBA]Thisworkbook.Saved = True
Thisworkbook.close[/VBA]before

[mdmackillop]

You may also want to use
[VBA]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

[/VBA]
in case they try to save in some other way.

[Bob Phillips]

Please use linebreaks where long lines of code require scrolling.

... and/or use With ... End With