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

Привет, несмотря на использование приведенного выше кода, приглашение «Сохранить как» по-прежнему иногда появляется и влияет на программу. Кто-нибудь знает, как это полностью остановить? Проблема в том, что после того, как я нажму «Сохранить как», он предупредит меня, что он все еще открыт.