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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

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

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

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

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

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

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 в 08:59.
agregator вне форума   Ответить с цитированием
Старый 12.02.2010, 09:15   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Адрес: Россия, Урал
Сообщений: 6,840
Репутация: 1286

skype: ExcelVBA.ru
По умолчанию

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


15:11.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.