|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.04.2009, 09:55 | #1 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
Автозапуск макроса при открытии и закрытии книги
Помогите найти ошибку. Есть 2 макроса (DisAbleAllCLear, который запускается при открытии книги, и EnableAllClear, который запускается при ее закрытии) С помощью макросов необходимо отключать и включать макросы и oпции.
Sub DisAbleAllCLear() EnableControl 30017, False 'macro EnableControl 522, False 'options CommandBars("ToolBar List").Enabled = False End Sub Sub EnableAllClear() EnableControl 30017, True 'macro EnableControl 522, True 'options CommandBars("ToolBar List").Enabled = True End Sub *При ошибке выделяется вторая строка Далее, я прописал автозапуск этих макросов + добавил условие исчезновения строки формул: Private Sub Workbook_Open() Application.DisplayFormulaBar = False Run "DisAbleAllCLear" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayFormulaBar = True Run "EnableAllClear" End Sub |
06.04.2009, 10:17 | #2 |
Пользователь
Регистрация: 27.03.2009
Сообщений: 78
|
у тебя есто контроль с ID 30017 ???
|
06.04.2009, 10:19 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Скорее всего, у Вас либо неправильно передаются параметры при вызове процедуры "EnableControl", либо несоответствие типа (типов) параметров.
Если, например, в модуль "Эта книга" вставить код Код:
Код:
Чем шире угол зрения, тем он тупее.
|
06.04.2009, 10:32 | #4 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
Когда-то SAS888 выкладывал ссылку http://support.microsoft.com/kb/213552/en-us, там я и взял ID коды
|
06.04.2009, 10:35 | #5 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
|
06.04.2009, 10:53 | #6 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Код:
|
|
06.04.2009, 10:56 | #7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Да. Помню. Посмотрите пример во вложении.
Чем шире угол зрения, тем он тупее.
|
06.04.2009, 11:07 | #8 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
SAS888, спасибо. Всё летает
|
06.04.2009, 11:09 | #9 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается. | Ples | Microsoft Office Excel | 8 | 17.12.2016 18:15 |
Как выполнить действие при закрытии Книги? | valerij | Microsoft Office Excel | 9 | 12.03.2009 15:31 |
При закрытии книги, удаляются листы | Romuald | Microsoft Office Excel | 3 | 20.01.2009 21:34 |
ошибка при закрытии adoquery | Банзай | БД в Delphi | 7 | 03.09.2007 19:31 |