Не закрывается книга после выполнения Workbook_BeforeClose

[echo]

Office 97
Имеется вот такой код

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


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(" ").Cells(4, 3) = Sheets("otch").Cells(4, 3)
    Sheets(" ").Cells(4, 4) = Sheets("otch").Cells(4, 4)
    Application.DisplayAlerts = False
     If ActiveSheet.Name = "otch" Then
    Sheets("ОБРАЗЕЦ").Activate
     End If
    Worksheets("otch").Delete
    ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub


Все инструкции выполняются нормально, но книга в итоге не закрывается. Сходил посмотрел, что пишут у Билла Гейтса. Вроде есть такая проблема. http://support.microsoft.com/default.aspx?scid=kb;en-us;177688 Говорят что если удалить в Workbook_BeforeClose активный лист, тогда книга не закрывается, но я то удаляю НЕАКТИВНЫЙ!

Может кто-нибудь подсказать как обойти такую проблемку?

[a_mayor]

Офис 2003, закрывается, как часы
А попробуй в конце процедурки написать ThisWorkbook.Close.

[echo]

А попробуй в конце процедурки написать ThisWorkbook.Close.

в процедуре BeforeClose написать ThisWorkbook.Close nothing personal

[a_mayor]

Ну, не хочешь пробовать, тогда в процедурке пиши сообщение юзеру: Плиз, не серчайте, если книжка не хочет сама закрываться, у нас старенький офис!

[echo]

ты сам то пробовал? и что у тебя получилось?

[a_mayor]

Я же ясно сказал, что в Офисе 2003 закрывается

[a_mayor]

ThisWorkbook.Close вызовет повторно Workbook_BeforeClose. Отреагируй на это так (буленовым ключом):

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


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Static blClose As Boolean
   
   
   
    If Not blClose Then
        blClose = True
       
        'здесь твой код

        Cancel = True 'для уверенности, что не сдвоит
        ThisWorkbook.Close
        Exit Sub
    End If
End Sub