Как модернизировать макрос "закрыть все книги"
micholap_denis
Дата: Суббота, 25.09.2021, 22:29 |
Сообщение № 21
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация:
0
±
Замечаний:
60% ±
Excel 2013
файл который не требуется закрывать в формате.xlsb прописываю в макросе... If wb.Name<>"111.xlsb" Then wb.Close False этот файл и закрывает а остальные открыты
файл который не требуется закрывать в формате.xlsb прописываю в макросе... If wb.Name<>"111.xlsb" Then wb.Close False этот файл и закрывает а остальные открыты micholap_denis
Ответить
Сообщение файл который не требуется закрывать в формате.xlsb прописываю в макросе... If wb.Name<>"111.xlsb" Then wb.Close False этот файл и закрывает а остальные открыты Автор - micholap_denis Дата добавления - 25.09.2021 в 22:29
Pelena
Дата: Воскресенье, 26.09.2021, 08:24 |
Сообщение № 22
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация:
4555
±
Замечаний:
±
Excel 365 & Mac Excel
Книгу с макросом тоже надо исключить. Если она закроется, то и макрос перестанет работать, наверное
Книгу с макросом тоже надо исключить. Если она закроется, то и макрос перестанет работать, наверное Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Книгу с макросом тоже надо исключить. Если она закроется, то и макрос перестанет работать, наверное Автор - Pelena Дата добавления - 26.09.2021 в 08:24
micholap_denis
Дата: Воскресенье, 26.09.2021, 17:41 |
Сообщение № 23
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация:
0
±
Замечаний:
60% ±
Excel 2013
Pelena , так файл который исключаем - 111 в нем и есть макрос
Pelena , так файл который исключаем - 111 в нем и есть макросmicholap_denis
Ответить
Сообщение Pelena , так файл который исключаем - 111 в нем и есть макросАвтор - micholap_denis Дата добавления - 26.09.2021 в 17:41
Pelena
Дата: Воскресенье, 26.09.2021, 19:42 |
Сообщение № 24
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация:
4555
±
Замечаний:
±
Excel 365 & Mac Excel
Вариант [vba]Код
For Each wb In Workbooks ' перебираем все открытые книги If wb.Windows(1).Visible Then If Not wb Is ThisWorkbook Then wb.Close False Next wb
[/vba]
Вариант [vba]Код
For Each wb In Workbooks ' перебираем все открытые книги If wb.Windows(1).Visible Then If Not wb Is ThisWorkbook Then wb.Close False Next wb
[/vba]Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Вариант [vba]Код
For Each wb In Workbooks ' перебираем все открытые книги If wb.Windows(1).Visible Then If Not wb Is ThisWorkbook Then wb.Close False Next wb
[/vba]Автор - Pelena Дата добавления - 26.09.2021 в 19:42
micholap_denis
Дата: Воскресенье, 26.09.2021, 21:13 |
Сообщение № 25
Группа: Проверенные
Ранг: Обитатель
Сообщений: 341
Репутация:
0
±
Замечаний:
60% ±
Excel 2013
Pelena , то что нужно! спасибо вам
Ответить
Сообщение Pelena , то что нужно! спасибо вамАвтор - micholap_denis Дата добавления - 26.09.2021 в 21:13