Закрыть, Отмена.

[agregator]

Всем, доброго вечера. Подскажите код для Auto_Close, отменяющий закрытие.

[Dophin]

а что такое AutoClose?

[The_Prist]

наверное никак... А стандартную событийную процедуру использовать не получается? там есть переменная, отвечающая за возможность отмены закрытия.

То Dophin:
Sub Auto_Close - это процедура, срабатывающая перед закрытием книги. Записывается в обычном модуле и использовалась в версиях Excel ранее 2003. Аналогична событийной процедуре - Workbook_BeforeClose.

[agregator]

А стандартную событийную процедуру использовать не получается? там есть переменная, отвечающая за возможность отмены закрытия.

Подскажите как. Мне надо, чтобы работал такой код.

Sub Workbook_BeforeClose(Cancel As Boolean)
If xx <> 0 Then GoTo c
Application.CommandBars("Таскать"). Visible = False
Application.CommandBars("Таскать"). Delete
Exit Sub
c: Отменить закрытие
MsgBox "Вставляй " & xx

End Sub

[EducatedFool]

Когда ж Вы наконец перестанете использовать оператор GoTo ...

Sub Workbook_BeforeClose(Cancel As Boolean)
    If xx <> 0 Then
        Cancel = True    ' отменяем закрытие
        MsgBox "Вставляй " & xx
    Else
        Application.CommandBars("Таскать").Visible = False
        Application.CommandBars("Таскать").Delete
    End If
End Sub

[Dophin]

cancel = true

[agregator]

Спасибо за помощь.