Программно закрыть userform при открытии другой книги
Lich
Дата: Вторник, 06.03.2018, 05:05 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Всем здравствуйте, подскажите, пожалуйста, как закрыть форму при открытии другой книги. Я открываю кодом один файл, но в нем сразу открывается форма, как мне автоматически ее закрыть? код [vba][/vba] не помогает
Всем здравствуйте, подскажите, пожалуйста, как закрыть форму при открытии другой книги. Я открываю кодом один файл, но в нем сразу открывается форма, как мне автоматически ее закрыть? код [vba][/vba] не помогает Lich
Ответить
Сообщение Всем здравствуйте, подскажите, пожалуйста, как закрыть форму при открытии другой книги. Я открываю кодом один файл, но в нем сразу открывается форма, как мне автоматически ее закрыть? код [vba][/vba] не помогает Автор - Lich Дата добавления - 06.03.2018 в 05:05
Апострофф
Дата: Вторник, 06.03.2018, 10:44 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 468
Репутация:
129
±
Замечаний:
0% ±
Excel 1997
как мне автоматически ее закрыть?
А может проще отключить запуск формы? Примерно так - [vba]Код
Application.EnableEvents = False 'открываю кодом один файл, но в нем сразу УЖЕ НЕ открывается форма Workbooks.Open ThisWorkbook.Path & "\Книга2.xlsm" Application.EnableEvents = True
[/vba]
как мне автоматически ее закрыть?
А может проще отключить запуск формы? Примерно так - [vba]Код
Application.EnableEvents = False 'открываю кодом один файл, но в нем сразу УЖЕ НЕ открывается форма Workbooks.Open ThisWorkbook.Path & "\Книга2.xlsm" Application.EnableEvents = True
[/vba]Апострофф
Ответить
Сообщение как мне автоматически ее закрыть?
А может проще отключить запуск формы? Примерно так - [vba]Код
Application.EnableEvents = False 'открываю кодом один файл, но в нем сразу УЖЕ НЕ открывается форма Workbooks.Open ThisWorkbook.Path & "\Книга2.xlsm" Application.EnableEvents = True
[/vba]Автор - Апострофф Дата добавления - 06.03.2018 в 10:44
Апострофф
Дата: Вторник, 06.03.2018, 11:32 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 468
Репутация:
129
±
Замечаний:
0% ±
Excel 1997
А если форма не модальная, можно попробовать такое - [vba]Код
Workbooks.Open ThisWorkbook.Path & "\Книга2.xlsm" SendKeys "%{F4}"
[/vba]
А если форма не модальная, можно попробовать такое - [vba]Код
Workbooks.Open ThisWorkbook.Path & "\Книга2.xlsm" SendKeys "%{F4}"
[/vba] Апострофф
Ответить
Сообщение А если форма не модальная, можно попробовать такое - [vba]Код
Workbooks.Open ThisWorkbook.Path & "\Книга2.xlsm" SendKeys "%{F4}"
[/vba] Автор - Апострофф Дата добавления - 06.03.2018 в 11:32
Lich
Дата: Вторник, 06.03.2018, 11:36 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Апострофф , спасибо огромное, [vba]Код
Application.EnableEvents = False Application.EnableEvents = True
[/vba] помогли
Апострофф , спасибо огромное, [vba]Код
Application.EnableEvents = False Application.EnableEvents = True
[/vba] помоглиLich
Ответить
Сообщение Апострофф , спасибо огромное, [vba]Код
Application.EnableEvents = False Application.EnableEvents = True
[/vba] помоглиАвтор - Lich Дата добавления - 06.03.2018 в 11:36