Private Sub AcadDocument_BeginDocClose(Cancel As Boolean)
    ' Этот пример препятствует закрытию рисунка.
    Cancel = True
    MsgBox "Пожалуйста не закройте этот рисунок."

End Sub