VBA, чтобы заставить закрыть на защищенном проекте

Question

Мы используем это для принудительного закрытия проектов vba, которые остаются открытыми после закрытия книги Excel;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    If Not (Application.VBE.MainWindow.Visible) Then
        Application.VBE.MainWindow.Visible = True
        Application.VBE.MainWindow.Visible = False
    End If
End Sub

Работает нормально, пока вы не защитите проект. После защиты проекта он остается открытым, даже когда вы закрываете книгу Excel.

Наш единственный обходной путь - периодически закрывать все экземпляры Excel несколько раз в день, чтобы предотвратить появление ошибки памяти.

Есть предложения?

Answer 1

Вы пытались добавить "Установить приложение. Эта книга = ничего" после закрытия в VBA?

Workbooks.Open ThisWorkbook.FullName

ThisWorkbook.Close False

Set Application.ThisWorkbook = Nothing

Это помогло мне с аналогичной проблемой в прошлом, когда VBA оставалась после закрытия книги.