Не удаляются листы в excel 2016

Помогла ли Вам статья?

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

Удаление листа в Excel

В книге Excel есть опция создания нескольких страниц. Более того, исходные параметры выставляются таким образом, что документ в процессе создания уже включает в себя 3 листа. Однако бывают ситуации, когда пользователю требуется убрать ряд страниц с информацией либо пустых, поскольку они мешают работе. Это возможно осуществить несколькими методами.

Удаление листа через контекстное меню

Использование контекстного меню является самым распространенным и простым способом выполнения процедуры удаления, выполняемым фактически в 2 щелчка:

1. В этих целях используется контекстное меню, вызываемое кликом ПКМ по той странице, которая подлежит удалению.
2. В появившемся окне выбирается «Удалить».
   
3. После этого ненужная страница будет окончательно удалена из книги.

Удаление через инструменты программы

Рассматриваемый способ менее популярен, однако также может использоваться наравне с остальными.

1. Изначально выбирается лист, подлежащий удалению.
2. Затем следует перейти в меню «Главная», кликнуть блок «Ячейки», в открывшемся перечне нажимается небольшая стрелка возле клавиши «Удалить».
   
3. Из всплывающего меню выбирается «Удалить лист».
   
4. Указанная страница будет удалена из книги.

Важно! Когда окно с программой слишком растянуто в ширину, в меню «Главная» отображается клавиша «Удалить» без надобности заранее нажимать на «Ячейки».

Удаление сразу нескольких листов

Процедура удаления нескольких листов в книге идентична вышеописанным способам. Однако, чтобы убрать несколько страниц, перед выполнением самого действия требуется провести выделение всех ненужных листов, подлежащих удалению из редактора.

1. Когда лишние страницы располагаются подряд, их возможно выделить таким образом: Кликается 1 лист, далее нажимается и удерживается кнопка «Shift» и выделяется последняя страница, после этого можно отпустить кнопку. Выделение этих листов может происходить в обратном порядке – от крайнего к начальному.
   
2. В ситуации, если удаляемые страницы располагаются не подряд, они выделяются несколько иначе. Зажимается кнопка «Ctrl», после кликом левой клавиши мыши выбираются все необходимые листы, затем кнопка отпускается.
   
3. Когда ненужные страницы были выделены, возможно начать сам процесс удаления каким-либо из вышеуказанных способов.

Восстановление удаленного листа

Иногда возникает ситуация, что пользователь по ошибке удалил из редактора листы. Не во всех случаях удастся восстановить удаленную страницу. Полной уверенности в том, что страница будет восстановлена нет, однако в ряде ситуаций возможно добиться положительного результата.

Когда совершенная ошибка была вовремя обнаружена (перед тем, как сохранить документ с произведенными изменениями), все можно исправить. Необходимо закончить работу с редактором, нажать на клавишу с крестиком справа вверху документа. В появившемся диалоговом окне выбирается опция «Не сохранять». После следующего открытия документа все страницы будут на месте.

Важно! Нужно учитывать то, что в процессе такого способа восстановления исчезнут данные, которые внесены в документ после крайнего сохранения (если был факт внесения изменений). В связи с этим, перед пользователем будет стоять выбор, какая информация ему важнее.

Если ошибка обнаружена, уже когда файл сохранен, то вероятность достижения положительного результата еще ниже, однако и в подобной ситуации существует шанс на успех.

1. К примеру, в редакторе «Эксель 2010» и в более поздних версиях возможно открыть «Файл» в основном меню и выбрать «Сведения».
2. Внизу посредине монитора можно будет увидеть блок «Версии», в котором содержатся различные версии книги. Они находятся в нем ввиду автосохранения, осуществляемого редактором по умолчанию каждые 10 минут (если пользователь не отключил этот пункт).
   
3. После этого, в перечне версий необходимо найти самую позднюю по дате, и нажать на нее.
4. В открывшемся окне можно увидеть сохраненную книгу.
5. Для завершения процедуры восстановления нажимается «Восстановить» над таблицей.
6. Редактор предлагает произвести замену сохраненного пользователем раньше документа на эту версию. Если это нужный вариант, то нужно кликнуть «ОК». Когда же необходимо сохранить каждый вариант, требуется дать файлу другое название.
   

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

Удаление скрытого листа

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

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

Заключение

Процесс удаления ненужных листов в редакторе прост и совершенно нетрудоемок. Однако, в то же время, иногда крайне полезен, чтобы «разгрузить» книгу и облегчить работу. Используя любой из вышеуказанных способов, можно достичь положительного результата.

I have stumbled across an interesting problem in Excel. I have a macro which works fine in Excel 2013 (I just tested it prior to posting this and achieved the results I expected) but is failing in Excel 2016.

The macro deletes a few worksheets and saves a copy to wherever the user specifies. I am getting a Method Delete of Object '_Worksheet' failed error on my line:

Sheets("DPS Scorecard").Delete

Now I know the sheet is being referenced correctly because I type ?Sheets("DPS Scorecard").Name in the immediate window and I get DPS Scorecard which is the name I would expect of the sheet.

I tried to use

Worksheets("DPS Scorecard").Delete

But got the same error.

I thought I should try the codename, which is Sheet8, so I even used

Sheet8.Delete

When I do this, Excel immediately crashes (though I do not receive the error).

I also tried activating another sheet that isn’t deleted prior to deleting the necessary sheets, but this produced the same results. I also used On Error Resume Next which resulted in the code finishing, of course, but none of the sheets I needed deleted were removed.

The worksheet and workbook are both unprotected.

Does anyone have any idea why I can delete my worksheet in Excel 2013 but not Excel 2016?

It’s unfortunate because users in my office are being upgraded to 2016 and this is halting a significant business process.

Full subroutine:

Sub CreateCPR()

    Dim excelName  As String
    Dim newWB As Workbook, curWB As Workbook

    Set curWB = ThisWorkbook

    'Get Excel save name
    excelName = Application.GetSaveAsFilename(InitialFileName:=Mid(ThisWorkbook.Name, 1, FindNth(ThisWorkbook.Name, "_", 2)) & "CPR_.xlsm", fileFilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm)", Title:="Save CPR")

    If excelName <> "False" And excelName <> vbNullString Then

        Application.Calculate
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False

        ThisWorkbook.CheckCompatibility = False
        ThisWorkbook.SaveAs fileName:=excelName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


        'unprotect sheet
        ActiveSheet.Unprotect Password:="password"
        ActiveWorkbook.Unprotect
        ActiveSheet.EnableOutlining = True


        'Delete sheets & show sheets
        Sheets("Summary").Visible = True
        Sheets("Candidate").Visible = True
        Sheets("DPS Scorecard").Delete
        Sheets("Portfolio Summary").Delete
        Sheets("Detail Data 2017 Q1").Delete
        Sheets("Detail Data 2016 YE").Delete
        Sheets("Detail Data 2015 YE").Delete
        Sheets("Detail Data 2014 YE").Delete
        Sheets("Detail Data 2013 YE").Delete
        Sheets("Instructions").Delete
        Sheets("Slicer Parameters").Delete

        Sheets("Summary").Select
        Application.Calculation = xlAutomatic

        On Error Resume Next
        Sheets("DPS - Candidate").Unprotect Password:="password"
        Sheets("DPS - Seller").Unprotect Password:="password"
        Sheets("Summary").Activate

        'Order the tabs
        Sheets("Summary").Move Before:=Sheets(1)
        Sheets("DPS - Candidate").Move After:=Sheets("Summary")
        Sheets("Candidate").Move After:=Sheets("DPS - Candidate")
        Sheets("DPS - Seller").Move After:=Sheets("Candidate")

        Sheets("Summary").Activate

        On Error GoTo 0

        ThisWorkbook.Save

        Application.DisplayAlerts = True
        Application.ScreenUpdating = True

    End If
End Sub

Current workaround:

I just use Sheets.Cells.Clear and set the sheets to xlVeryHidden for the sheets I am trying to delete. That will at least get me by for the time being until I can figure out why Delete isn’t working.

Во время работы с документами в Excel у пользователей есть возможность создавать новые листы, что в некоторых случаях просто необходимо, чтобы успешно справиться с поставленной задачей. Но нередко возникает необходимость в удалении определенных листов с ненужными данными (или пустые листы), чтобы они не занимали лишнего места в нижней строке состояния программы, например, когда листов слишком много и нужно облегчить переключение между ними.

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

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

1. Для этого воспользуемся контекстными меню, которое вызывается щелчком правой кнопки мыши именно по тому листу, который мы хотим удалить.
2. В открывшемся меню выбираем “Удалить”.
3. Вот и все, ненужный лист был безвозвратно удален из книги.

Удаление через инструменты программы

Данный метод не так распространен, но все же, давайте его тоже попробуем применить.

1. Для начала нужно выбрать лист, который нужно удалить.
2. Далее переходим во вкладку “Главная”, щелкаем по блоку инструментов “Ячейки”, в раскрывшемся списке нажимаем на небольшую стрелку вниз рядом с кнопкой “Удалить”.
3. Выбираем из открывшегося списка пункт “Удалить лист”.
4.  Выбранный нами лист будет удален из документа.

Примечание: если окно с программой достаточно растянуто по ширине, во вкладке “Главная” сразу будет отображаться кнопка “Удалить”, без необходимости предварительно нажимать на инструмент “Ячейки”.

Удаление сразу нескольких листов

По сути, сам процесс идентичен описанным выше методам. Но, чтобы удалить сразу несколько листов, до того, как выполнить само действие, нужно выделить все ненужные листы, которые следует убрать из документа.

1. Если ненужные листы расположены подряд, их можно выделить следующим образом. Щелкните по первому листу, затем нажмите клавишу Shift, не отпуская ее, кликните по последнему листу, и потом можно отпустить клавишу. Речь, конечно же, идет про первый и последний листы из удаляемых. Выделять можно и в обратном порядке – от последнего к первому.
2. В случаях, когда удаляемые листы расположены не подряд, их выделение происходит несколько иным способом. Зажимаем клавишу Ctrl, далее щелчком левой кнопки мыши выбираем все нужные листы, после чего отпускаем клавишу.
3. Теперь, после того, как мы выделили лишние листы, можно приступить к их удалению любым из методов, которые были описаны выше.

Заключение

Итак, процедура удаления лишних листов в Эксель проста и абсолютно не трудоемка. Но при этом, она в определенных ситуациях, крайне полезна, чтобы “разгрузить” документ, сделав работу, как минимум, более комфортной. Пользуйтесь любым из предложенных методов, который вам показался наиболее удобным в реализации.