Закрыть экземпляр книги excel которая уже открыта - VB

Формулировка задачи:

Ребята здравствуйте! подскажите пожалуйста у меня в проекте происходит проверка открытого файла так

If eOpen(App.Path & "\DOCM.xlsx") Then 
    If MsgBox("файл открыт", нажмите кнопку ок и файл закроется принудительно", _
        vbOKCancel + 48, "сообщение") = vbOK Then 

'а вот как ЗАКРЫТЬ его после нажатия кнопки "ок" не ведомо
End If

Решение задачи: «Закрыть экземпляр книги excel которая уже открыта»

textual
                            Листинг программы 
                        

                            Public appex As Object
Public Sub Saveарр()
    Set appex = CreateObject("Excel.Application")
    appex.Visible = False
        
        With appex
        .Workbooks.Open (App.Path & "\DOCM.xlsx")
        .ActiveWorkbook.Save  'ошибка здесь
        .ActiveWorkbook.Close
    End With
    appex.Quit
    End Sub

                        