Close button and exit macro

[errtu]

So I have a workbook in which I need to disable Close button through:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

But now it is conflicting with the procedure used to save the changes:

Sub saveas_city_m()
AllFilled = True
For Each cll In Range("B4:B6").Cells
  If Not cll.Value > 0.1 Then
    AllFilled = False
    Exit For
  End If
Next cll
If AllFilled Then
  For Each cll In Range("D13:D17").Cells
    If cll.Value > 0.1 Then
      If Not cll.Offset(, 1) > 0.1 Then
        AllFilled = False
        Exit For
      End If
    End If
  Next cll
End If
If AllFilled Then
  ActiveWorkbook.SaveAs "C:\Users\K\Desktop\tryOuts\23\city m.xlsm", FileFormat:=52
  MyFile = "C:\Users\K\Desktop\tryOuts\CITY M.xlsm"
  Kill MyFile
  Application.Quit
  Else
  MsgBox "Can not save. Complete Cell: " & cll.Offset(, 1).Address(False, False)
End If
End Sub

 

[Andrew Poulsom]

You can use:

Application.EnableEvents = False

to disable the Workbook_BeforeClose event procedure.

 

[errtu]

didnt work, stayed the same

 

[Andrew Poulsom]

Where did you put it?

 

[errtu]

Sub saveas_city_market()
AllFilled = True
For Each cll In Range("B4:B6").Cells
  If Not cll.Value > 0.1 Then
    AllFilled = False
    Exit For
  End If
Next cll
If AllFilled Then
  For Each cll In Range("D13:D17").Cells
    If cll.Value > 0.1 Then
      If Not cll.Offset(, 1) > 0.1 Then
        AllFilled = False
        Exit For
      End If
    End If
  Next cll
End If
If AllFilled Then
  Application.EnableEvents = False
  ActiveWorkbook.SaveAs "C:\Users\Khaos\Desktop\tryOuts\23\city market.xlsm", FileFormat:=52
  MyFile = "C:\Users\Khaos\Desktop\tryOuts\CITY MARKET.xlsm"
  Kill MyFile
  Application.Quit
  Else
  MsgBox "No se puede guardar. Completar Celda: " & cll.Offset(, 1).Address(False, False)
End If
End Sub

 

[errtu]

can anyone tell me how to close and save excel when that macro is active?

 

[Andrew Poulsom]

Sorry, I didn't see your previous post.

This worked for me:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
End Sub
 
Sub Test()
    Application.EnableEvents = False
    ThisWorkbook.Saved = True
    Application.Quit
End Sub