Как быстро закрыть все книги, кроме активной?
Если на вашем компьютере открыто несколько книг, и теперь вы хотите закрыть все, но оставить активную. Есть ли какие-нибудь быстрые способы справиться с этой работой, кроме как закрывать другие книги по одной? В этой статье я расскажу о некоторых простых способах решить эту проблему одним щелчком мыши.
Закройте все книги, кроме активной, с кодом VBA
Закройте все книги, кроме активной, с помощью вкладки Office
Закройте все книги, кроме активной, с кодом VBA
С помощью следующего кода VBA вы можете быстро закрыть все открытые книги, кроме активной, сделайте следующее:
1. Активируйте свою книгу, которую вы хотите оставить открытой.
2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: закройте все книги, кроме активной
Private Sub CloseOtherWorkbook()
'Update 20141126
Dim xWB As Workbook
Application.ScreenUpdating = False
For Each xWB In Application.Workbooks
If Not (xWB Is Application.ActiveWorkbook) Then
xWB.Close
End If
Next
Application.ScreenUpdating = True
End Sub
4, Затем нажмите F5 нажмите клавишу для запуска этого кода, а затем все другие книги будут закрыты сразу, но останется только активная.
Закройте все книги, кроме активной, с помощью вкладки Office
Если вас интересует новинка - Office Tab, он может помочь вам открыть несколько документов / файлов в одном окне с вкладками, с его помощью вы можете закрыть все книги, но оставить активным одним щелчком мыши. Вы можете узнать больше и загрузить Office Tab от здесь.
После установки Office Tab, вы увидите, что все открытые книги отображаются в одном окне с вкладками, см. снимок экрана:
Затем щелкните имя книги, которую хотите оставить открытой, и щелкните правой кнопкой мыши вкладку имени, затем выберите Закрыть Другое из контекстного меню см. снимок экрана:
И тогда вы увидите, что открыта только ваша активная книга.
Связанная статья:
Как быстро закрыть все книги в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
