Как быстро закрыть все книги, кроме активной?

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

Закройте все книги, кроме активной, с кодом VBA

Закройте все книги, кроме активной, с помощью вкладки Office

Закройте все книги, кроме активной, с кодом VBA

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

1. Активируйте свою книгу, которую вы хотите оставить открытой.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: закройте все книги, кроме активной

Private Sub CloseOtherWorkbook()
'Updateby Extendoffice
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.

После установки Office Tab, вы увидите, что все открытые книги отображаются в одном окне с вкладками, см. снимок экрана:

Затем щелкните имя книги, которую хотите оставить открытой, и щелкните правой кнопкой мыши вкладку имени, затем выберите Закрыть Другое из контекстного меню см. снимок экрана:

И тогда вы увидите, что открыта только ваша активная книга.

Связанная статья:

Как быстро закрыть все книги в Excel?