_Если вы работаете с несколькими книгами одновременно и вам нужен макрос, который поможет вам скрыть все неактивные книги, эта статья определенно вам поможет. _

В этой статье мы сосредоточимся на том, как мы можем скрыть несколько книг, которые вы в настоящее время не используете.

Вопрос: Мне нужно быстро скрыть все файлы Excel, кроме того, который я использую в настоящее время, чтобы я мог плавно переключаться между другими приложениями. Я хотел бы найти код VBA для этого моего уникального требования.

Чтобы получить код для скрытия всех неактивных книг, нам нужно выполнить следующие шаги для запуска редактора VB. Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

img1

  • Скопируйте следующий код в модуль рабочего листа

Sub HideInactiveExcelWorkbooks()

Application.ScreenUpdating = False

Dim aWin As Window

Set aWin = ActiveWindow

Dim win As Window

For Each win In Application.Windows

win.Visible = False

Next win

aWin.Visible = True

Application.ScreenUpdating = True

End Sub

img2

  • Приведенный выше код немедленно скроет все неактивные книги. Примечание: вышеуказанный макрос не скроет активную книгу.

Чтобы показать все книги, нам нужно выполнить следующие шаги:

Щелкните вкладку «Просмотр». Щелкните «Показать»

img3

  • Это покажет скрытые рабочие книги

img4

Выбор каждого из них и нажатие на кнопку «ОК» покажет рабочую книгу. Вывод: * Мы можем скрыть сотни неактивных рабочих книг одним щелчком мыши, используя приведенный выше код макроса.

image 48 If you liked our blogs, share it with your friends on Facebook. And also you can follow us on Twitter and Facebook.

Мы хотели бы услышать от вас, дайте нам знать, как мы можем улучшить, дополнить или усовершенствовать нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]