Excel! Листы скрываются раньше чем нужно

[M@SKIT]

Вопрос! в Excel 2003 в событии Workbook_beforeclose написана процедура которая скрывает листы после завершения работы с книгой. Но листы скрываются сразу после нажатия на кнопку закрытия окна, а потом выскакивает диалоговое окошко "сохранить изменения" да/нет/отмена. Но если это было случайное нажатие на кнопку или пользователь передумал выходить из рабочей книги то что делать? Как сделать так чтобы листы скрывались после подтверждения или отклонения сохранения?

[Genyaa]

Перенесите код скрытия листов из beforeclose в Workbook_WindowDeactivate или Workbook_Deactivate, а в beforeclose вставьте активацию (эмуляцию) возможного диалога (Сохранить/нет/отмена) без реальных действий. Полученные ответы пользователя обработайте уже в Deactivate соответственным образом.

[Димитрий]

Можно так:

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
    i = MsgBox("Сохраняем?", vbYesNoCancel)
    If i = vbCancel Then
        Cancel = True
    Else
'********************
'Здесь скрываем листы
'********************
        If i = vbYes Then
            ThisWorkbook.Save
        Else: ThisWorkbook.Saved = True
        End If
    End If
End Sub

[/code]

[M@SKIT]

Спасибо Димитрий за подсказку, а с первым вариантом не получится - при переходе от Workbook1 к WorkBook2 тоже происходит событие Deactivate, было бы очень не удобно при работе с несколькими рабочими книгами, при переходе между ними, каждый раз отвечать на диалог.