excel - 名前を付けて保存のプロンプトを無効にするには?

Question

        If IsWorkbookOpen("CONTRACT\CONTRACTLIST_Cement.xlsx") Then
            x = 0
        Else
            Application.DisplayAlerts = False
            ActiveWorkbook.Close savechanges:=True
            Application.DisplayAlerts = True
        End If

こんにちは、上記のコードを使用しているにもかかわらず、保存プロンプトが時々表示され、プログラムに影響を与えます。それを完全に止める方法を知っている人はいますか？問題は、[名前を付けて保存] をクリックすると、まだ開いているという警告が表示されることです。