Reset/stop 'Auto_Close' sub midway, so workbook is not closed?

[Vantom]

Is it possible to reset an 'Auto_Close' sub if a condition is met midway, so that the workbook stays open?

 

[JoeMo]

Is it possible to reset an 'Auto_Close' sub if a condition is met midway, so that the workbook stays open?

Post your auto_close sub and explain the condition that must be met to cancel it.

 

[Vantom]

The if statement is in the 'AutoBackup' sub.

Sub Auto_Close()
    OptimizeVBA True
'Delete:
    Call DeleteSheets
        With Cells: .Delete Shift:=xlUp: End With
'Call AutoBackup:
    Call AutoBackup
    
    OptimizeVBA False
'Save/Saved:
    With Workbooks("CheckReportNumbers.xlsm"): .Save: .Saved = True: End With
End Sub

 

[JoeMo]

The if statement is in the 'AutoBackup' sub.

Sub Auto_Close()
    OptimizeVBA True
'Delete:
    Call DeleteSheets
        With Cells: .Delete Shift:=xlUp: End With
'Call AutoBackup:
    Call AutoBackup
    
    OptimizeVBA False
'Save/Saved:
    With Workbooks("CheckReportNumbers.xlsm"): .Save: .Saved = True: End With
End Sub

I don't see anything in what you posted that closes a workbook. And there are other modules involved that you are not showing. Keep in mind that we know nothing about what you want to accomplish or other code that may be involved.

 

[Vantom]

I close the workbook, and the 'Sub Auto_Close()' runs, and I want the sub/s to be reset using code, if a condition is met.

If I set a breakpoint manually, I can click reset manually when the sub breaks and then I can click 'cancel' when the 'save'/'don't save'/'cancel' prompt asks. I'm wondering if the same can be done automatically using code?

 

[mikerickson]

I'm guessing that your Auto_Close routine is being called by the Workbook_BeforeClose event. IF you Make Auto_Close a function, it can return the Cancel value for the BeforeClose to process.

What code is in your BeforeClose event?

 

[Vantom]

I close the workbook manually?

 

[Vantom]

Bump!

 

[Vantom]

Found a solution, run a batch file to open the workbook if the condition is met!

Sub Auto_Close()    
    If 2 + 2 = 4 Then Call Shell("C:\Users\X\Documents\OpenBook1.bat")
End Sub