Запрет выхода из Excel

[skif93]

Как запретить выход из Excel если не выполнены какие либо условия

[VictorM]

Код: Выделить всё

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ScreenUpdating = False
    If Условие1 <> Условие2 Then
        Cancel = True    ' отменяем закрытие
        Call MsgBox("Не заполнено одно или несколько полей" & vbCrLf & "Выполните все условия!", vbExclamation, "Ошибка")
        Exit Sub
    End If
End Sub