Как закрыть все книги excel

Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Еще…Меньше

Нужна дополнительная помощь?

Содержание

1. Совет № 1: Shift + кнопка закрытия окна
2. Совет № 2: добавьте кнопку «Закрыть все» на панель быстрого доступа
3. Совет № 3: Закройте все открытые книги с помощью макроса
4. У вас есть свои советы по сохранению и закрытию файлов?

Sub Close_All_Files_No_Save()
' Закройте все открытые книги и не сохраняйте

Dim wb As Workbook

  ' Просмотрите каждую рабочую книгу
  For Each wb In Application.Workbooks
    
    ' Предотвратить рабочую книгу, которая содержит
    ' код от закрытия
    If wb.Name <> ThisWorkbook.Name Then
      
      ' Закройте книгу и не сохраняйте изменения
      wb.Close SaveChanges:=False
    
    End If
  Next wb

End Sub

Sub Save_and_Close_All_Files_Except_ScratchPads()
' Закройте все открытые книги, кроме новых несохраненных файлов

Dim wb As Workbook

  ' Просмотрите каждую рабочую книгу
  For Each wb In Application.Workbooks
    
    ' Предотвратить рабочую книгу, которая содержит
    ' код от закрытия
    If wb.Name <> ThisWorkbook.Name Then
      
      ' Проверьте, имеет ли имя файла расширение
      If InStr(Right(wb.Name, 5), ".xls") > 0 Then
        wb.Close SaveChanges:=True
      Else
        ' Не сохраняйте изменения, если это блокнот.
        wb.Close SaveChanges:=False
      End If
    
    End If
  Next wb

End Sub

Sub Save_and_Close_All_Files()
' Закройте все открытые книги, кроме новых несохраненных файлов

Dim wb As Workbook
Dim sPath As String

  ' Путь, где будут сохранены новые несохраненные файлы.
  ' Измените это на папку на вашем компьютере. Конец с обратной косой чертой 
  sPath = "C:UsersusernameDocumentsExcel CampusScratch Pads"

  ' Просмотрите каждую рабочую книгу
  For Each wb In Application.Workbooks
    
    ' Предотвратить рабочую книгу, которая содержит
    ' код от закрытия
    If wb.Name <> ThisWorkbook.Name Then
      
      ' Проверьте, имеет ли имя файла расширение
      If InStr(Right(wb.Name, 5), ".xls") > 0 Then
        wb.Close SaveChanges:=True
      Else
        ' Сохранить блокноты в папке
        wb.Close SaveChanges:=True, _
            Filename:=sPath & wb.Name & Format(Now, " yyyy-mm-dd-hhmm")
      End If
    
    End If
  Next wb

End Sub

Sub CloseAllWorkbooks1()
    ' закрываем все книги, кроме текущей (активной)
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If Not wb Is ActiveWorkbook Then    ' если это не этот файл
            If wb.Windows(1).Visible Then wb.Close    ' закрываем его
        End If
    Next wb
End Sub

Sub CloseAllWorkbooks2()
    ' закрываем все книги, кроме той, из которой запущен макрос
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If Not wb Is ThisWorkbook Then If wb.Windows(1).Visible Then wb.Close
    Next wb
End Sub

Sub CloseAllWorkbooks3()
    ' закрываем все книги, кроме текущей (активной), С СОХРАНЕНИЕМ изменений
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If wb.Windows(1).Visible = True And (Not wb Is ActiveWorkbook) Then
            ' закрываем с сохранением только изменённые файлы
            wb.Close (Not wb.Saved) ' ранее сохранённые файлы просто закрываются
        End If
    Next wb
End Sub

Sub CloseAllWorkbooks4()
    ' закрываем все книги, кроме текущей (активной), БЕЗ СОХРАНЕНИЯ изменений
    Dim wb As Workbook: Application.ScreenUpdating = False
    For Each wb In Workbooks    ' перебираем все открытые книги
        If wb.Windows(1).Visible Then If Not wb Is ActiveWorkbook Then wb.Close False
    Next wb
End Sub

все отлично)) спасибки. вот чего я хотел)

Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.Save
Application.Quit

все отлично)) спасибки. вот чего я хотел)

Workbooks.Application.DisplayAlerts = False
Excel.ActiveWorkbook.Save
Application.Quit 85Muslim85

Сообщение все отлично)) спасибки. вот чего я хотел)

Источник

Сохранить все

Данная функция является частью надстройки MulTEx

Вызов команды:
MulTEx -группа Книги/Листы —Книги —Сохранить все

Команда сохраняет все открытые в текущем сеансе книги одним нажатием.
Для чего это нужно? Стандартно все открытые книги сохранить нет возможности. Возможно лишь закрыть все книги с сохранением (для этого необходимо нажать кнопку закрытия приложения с зажатой клавишей Shift и при запросе на сохранение выбрать Сохранить все (Save All) ). Но часто закрывать книги нет необходимости — требуется только сохранять. Например, когда одновременно приходится работать с несколькими открытыми отчетами, которые взаимосвязаны. И в таких случаях стандартно приходится переключаться отдельно на каждую книгу и жать Ctrl+S или иконку на панели.
С командой Сохранить все такой проблемы больше не будет — достаточно просто перейти в меню MulTEx -группа Книги/Листы —Книги и нажать Сохранить все. Все открытые книги будут сохранены.
Следует учитывать, что новые книги (которые еще не были сохранены на компьютер) будут сохраняться в папку по умолчанию (как правило это Мои Документы (My Documents) ).

Источник

Как закрыть все файлы Эксель?

Как закрыть Excel?

Закрыть все книги и выйти из Excel

1. В правом верхнем углу окна Excel нажмите кнопку «Закрыть «.
2. Нажмите кнопку Microsoft Office», кнопку «Выйти из Excel».

Как закрыть все открытые файлы?

Как закрыть сразу все открытые документы? Для этого, удерживая нажатой клавишу Shift, щелкните кнопкой мыши на меню Файл. В результате станут доступны команды меню Сохранить все и Закрыть все.

Как экстренно закрыть Эксель?

Одновременно нажмите три клавиши: Option, Command и Esc (Escape). Или выберите «Завершить принудительно» в меню Apple () в левом верхнем углу экрана. (Это равнозначно нажатию клавиш Control-Alt-Delete на компьютере PC.)

Как сохранить макрос в файл?

Как сохранить макрос в личную книгу макросов

Выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Запись макроса». В появившемся диалоговом окне «Запись макроса», из выпадающего списка «Сохранить в:» выберите опцию «Личная книга макросов». И нажмите на кнопку OK.

Как закрыть окно в Excel?

Выполните команду Файл – Закрыть Используйте комбинацию клавиш Ctrl+W. Используйте комбинацию клавиш Alt+F4. Эта команда заканчивает работу Excel, будут закрыты все окна

Как закрыть таблицу в Excel?

Если на Excel есть данные в формате таблицы и вам больше не нужны данные и их форматирование, вот как можно удалить всю таблицу. Выделите все ячейки в таблице, нажмите кнопку Очистить и выберите вариант Очистить все. Совет: Можно также выделить таблицу и нажать клавишу DELETE.

Как закрыть открытые файлы на сервере?

Как принудительно закрыть открытый файл в Windows? Чтобы закрыть открытый файл, нужно найти его в списке файлов секции Open Files и в контекстном меню выбрать пункт “Close Open File”. Обратите внимание, что принудительное закрытие файла, открытого клиентом на SMB сервере, вызывает потерю несохраненных данных.

Как просмотреть все открытые файлы?

Для того чтобы посмотреть недавно открытые файлы в Windows 10 необходимо нажать комбинацию клавиш Win+Tab. Пролистайте страницу временной шкалы вниз. Справа доступна собственно временная шкала с конкретными датами, а слева можно найти недавно открытые файлы.

Как закрыть все документы Ворд?

В ранних версиях Word (до 2007) при нажатой клавише Shift команда Сохранить (Save), расположенная в меню Файл (File), изменялась на Сохранить все (Save all), а команда Закрыть (Close) – на Закрыть все (Close all).

Что делать если программа зависла и не закрывается?

Для этого жмем на клавиатуре одновременно три заветные клавиши CTRL + SHIFT + ESC. Переходим на вкладку «Процессы», находим зависший процесс (напротив зависшей программы обычно пишется «Не отвечает…»), кликаем по нему правой кнопкой мыши и во всплывающем контекстном меню выбираем пункт «Снять задачу».

Как закрыть программу которая не закрывается через диспетчер задач?

Нажмите Alt+Ctrl+Del, во вкладке «Приложения» найдите зависшую программу и нажмите «Снять» задачу. Если это не помогло, перейдите во вкладку «Процессы», найдите зависший процесс и нажмите «Завершить процесс». В большинстве случаев зависшая программа после этого закроется.

Как закрыть рабочую книгу Excel?

Как закрыть рабочую книгу

1. Чтобы закрыть книгу Excel, кликните по нижней кнопке X.
2. Если у вас открыто несколько книг, нажатие правой верхней кнопки Х закрывает активную книгу. Если открыта одна книга, нажатие этой кнопки закрывает Excel.

Как создать Personal XLSB?

xlsb не существует. Самый легкий способ его создать — это записать рекордером какой-нибудь ненужный бессмысленный макрос, но указать в качестве места для его хранения Личную Книгу — тогда Excel будет вынужден автоматически ее для вас создать.

Где находится файл Personal XLSB?

Файл Personal. xlsB хранится в папке XLSTART. Если вы хотите поделиться макросами с другими, вы можете скопировать их в папку XLSTART на других компьютерах или скопировать некоторые или все макрос в файл Personal. xlsb на других компьютерах.

Где находится файл с макросами?

В Windows 10, Windows 7 и Windows Vista эта книга будет сохранена в папке C:Usersимя пользователяAppDataLocalMicrosoftExcelXLStart. В Microsoft Windows XP эта книга сохранена в папке C:Documents and Параметрыимя пользователяApplication DataMicrosoftExcelXLStart.

Источник

Как закрыть все файлы эксель с сохранением

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

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

Закройте все открытые книги с помощью кнопок Shift и Close

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

1. Открыв все книги, удерживайте нажатой клавишу Shift на клавиатуре, а затем щелкните значок Закрыть в правом верхнем углу строки заголовка Excel, см. снимок экрана:

2. Затем появится окно с запросом, хотите ли вы сохранить изменения в активной книге, см. Снимок экрана:

3. Нажмите Сохраните все чтобы сохранить изменения всех книг и закрыть их все.

Внимание: Этот метод применяется к Excel 2007, 2010 и 2013.

Закройте все открытые книги с помощью команды выхода

1. В Excel 2007 и 2010 есть ExiКоманда t может помочь вам закрыть все открытые книги и выйти из окна Excel, нажмите Файл > Выход, затем нажмите Сохраните все в появившемся окне подсказки, чтобы сохранить все изменения и закрыть все окна Excel. Смотрите скриншоты:

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

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

Если вы установили Office Tab на вашем компьютере, это помогает вам просматривать и редактировать несколько файлов в одном окне с вкладками, чтобы узнать больше о вкладке Office и загрузить ее, нажмите здесь.

После установки Office Tabи откройте несколько книг, вы увидите, что все имена книг были отображены в одном окне с вкладками, как показано на следующем снимке экрана:

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

Если вы щелкните Закрыть все вкладки, все открытые книги сразу закрываются.

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

Источник

Adblock
detector