How to disable the save as prompt?

Question

        If IsWorkbookOpen(\"CONTRACT\\CONTRACTLIST_Cement.xlsx\") Then
            x          


        

Answer 1

Try below code

Its always good to explcilty refer the workbook rather than ActiveWorkbook

Sub test()
   If IsWorkbookOpen("CONTRACT\CONTRACTLIST_Cement.xlsx") Then
            x = 0
    Else
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        ThisWorkbook.Close False
        Application.DisplayAlerts = True
    End If

End Sub