Отмена закрытия формы при отмене сохранения книги

@AntonPython · Регистрация: 16.10.2013

Author24 — интернет-сервис помощи студентам

Подскажите форма при закрытии которой она прячет пару листов и предложит сохранить данные, но если при сохранении нажать отмену, то формы все будут закрыты и пользователя выкинет на рабочий( не скрытый) лист.
Вопрос в том можно ли создать событие для отмены сохранения? и как оно будет выглядеть? Спасибо.

Visual Basic

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
    MsgBox "Спасибо за работу."
    Sheets("BazaM").Visible = xlSheetHidden
    Sheets("BazaW").Visible = xlSheetHidden
    Workbooks("Test1.xlsm").Close
    End If
    If CloseMode = 1 Then
    End If
End Sub

@KoGG · 03.07.2014, 14:14

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

Visual Basic

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        MsgBox "Спасибо за работу."
        Sheets("BazaM").Visible = xlSheetHidden
        Sheets("BazaW").Visible = xlSheetHidden
        With Workbooks("Test1.xlsm")
            .Save
            If .Saved = True Then
                .Close False
            Else
                Cancel = 1
            End If
        End With
    End If
    If CloseMode = 1 Then
    End If
End Sub

	03.07.2014, 14:14

Отмена закрытия формы при отмене сохранения книги

Решение