Developing.ru • Запрет выхода из Excel

Страница 1 из 1

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

Добавлено: 06 апр 2011, 20:38

skif93

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

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

Добавлено: 09 апр 2011, 18:45

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