title: How to disable the save as prompt?
body: <p><img src="https://i.stack.imgur.com/yprlT.png" alt="Error Message"></p>
  
  <pre><code>        If IsWorkbookOpen("CONTRACT\CONTRACTLIST_Cement.xlsx") Then
              x = 0
          Else
              Application.DisplayAlerts = False
              ActiveWorkbook.Close savechanges:=True
              Application.DisplayAlerts = True
          End If
  </code></pre>
  
  <p>Hi, despite using the above code, the save as prompt still occasionally appears and affect the program. Does anyone know how to stop it completely? The problem is that after I click save as, it will alert me that it was still open. </p>
  
  <p><img src="https://i.stack.imgur.com/UFfRn.png" alt="enter image description here"></p>