Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 11.02.2010, 19:39   #1
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 366
По умолчанию Закрыть, Отмена.

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

Последний раз редактировалось agregator; 12.02.2010 в 08:05.
agregator вне форума Ответить с цитированием
Старый 11.02.2010, 20:04   #2
Dophin
Форумчанин
 
Аватар для Dophin
 
Регистрация: 13.01.2010
Сообщений: 410
По умолчанию

а что такое AutoClose?
Dophin вне форума Ответить с цитированием
Старый 11.02.2010, 21:18   #3
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

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

То Dophin:
Sub Auto_Close - это процедура, срабатывающая перед закрытием книги. Записывается в обычном модуле и использовалась в версиях Excel ранее 2003. Аналогична событийной процедуре - Workbook_BeforeClose.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 12.02.2010, 07:56   #4
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 366
По умолчанию

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

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

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

Последний раз редактировалось agregator; 12.02.2010 в 07:59.
agregator вне форума Ответить с цитированием
Старый 12.02.2010, 08:15   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,843
По умолчанию

Когда ж Вы наконец перестанете использовать оператор 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
EducatedFool вне форума Ответить с цитированием
Старый 12.02.2010, 08:20   #6
Dophin
Форумчанин
 
Аватар для Dophin
 
Регистрация: 13.01.2010
Сообщений: 410
По умолчанию

cancel = true
Dophin вне форума Ответить с цитированием
Старый 12.02.2010, 09:56   #7
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 366
По умолчанию

Спасибо за помощь.
agregator вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отмена в ColorDialog'е Marsel737 Общие вопросы Delphi 5 24.11.2009 16:09
Отмена попапа SONce Общие вопросы Delphi 1 18.04.2009 05:48
Отмена удаления записи Хитрец БД в Delphi 2 12.04.2009 22:14
Отмена учета регистра Македонский Общие вопросы Delphi 7 12.09.2007 08:41
Отмена запроса на сохранение SlipKorn Microsoft Office Excel 1 13.06.2007 23:17


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS