В урока е обяснено как да премахнете скриването на работни листове в Excel 2016, 2013, 2010 и по-ниски версии. Ще научите как бързо да премахнете скриването на работен лист чрез щракване с десния бутон на мишката и как да премахнете скриването на всички листове едновременно с код VBA.

Представете си следното: отваряте работен лист и забелязвате, че някои формули препращат към друг работен лист. Поглеждате към разделите на листа, но препратеният лист не е там! Опитвате се да създадете нов лист със същото име, но Excel ви казва, че той вече съществува. Какво означава всичко това? Просто работният лист е скрит. Как да видите скритите листове в Excel? Очевидно трябва да ги скриете.ръчно с помощта на функцията на Excel Разкриване на или автоматично с VBA. В този урок ще научите и двата метода.

Как да премахнете скриването на листове в Excel

Ако искате да видите само един или два скрити листа, ето как можете бързо да ги премахнете:

1. В работната книга на Excel щракнете с десния бутон на мишката върху някой от разделите на листа и изберете Разкриване на ... от контекстното меню.
2. В Разкриване на изберете скрития лист, който искате да покажете, и щракнете върху OK (или щракнете два пъти върху името на листа). Готово!

Освен контекстното меню при щракване с десния бутон на мишката Разкриване на Диалогът е достъпен от лентата:

• В Excel 2003 и по-ранни версии щракнете върху Формат и след това щракнете върху Лист > Разкриване на .
• В Excel 2016, Excel 2013, Excel 2010 и Excel 2007 отидете в Начало tab> Клетки и щракнете върху Формат Под Видимост , посочете Скриване & amp; Разкриване , след което щракнете върху Разкриване на лист ...

Забележка. Разкриване на За да премахнете скриването на няколко листа, ще трябва да повторите горните стъпки за всеки работен лист поотделно или можете да премахнете скриването на всички листа наведнъж, като използвате посочените по-долу макроси.

Как да премахнете скриването на листове в Excel с VBA

В случаите, когато имате няколко скрити работни листа, премахването им един по един може да отнеме много време, особено ако искате да премахнете всички листове в работната си книга. За щастие можете да автоматизирате процеса с един от следните макроси.

Как да премахнете скриването на всички листове в Excel

Този малък макрос прави всички скрити листове в активна работна книга видими наведнъж, без да ви безпокои с известия.

Sub Unhide_All_Sheets() Dim wks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Visible = xlSheetVisible Next wks End Sub

Показване на всички скрити листове и показване на техния брой

Подобно на горния, този макрос също показва всички скрити листове в работната книга. Разликата е, че след завършване той показва диалогов прозорец, който информира потребителя колко листа са били скрити:

Sub Unhide_All_Sheets_Count() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If wks.Visible xlSheetVisible Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " работни листове са били скрити." , vbOKOnly, "Откриване на работни листове" Else MsgBox "Не са открити скрити работни листове." , vbOKOnly,"Откриване на работните листове" End If End Sub

Разкриване на няколко избрани листа

Ако предпочитате да не скривате всички работни листове наведнъж, а само тези, които потребителят изрично се е съгласил да направи видими, тогава макросът трябва да попита за всеки скрит лист поотделно, както е показано по-долу:

Sub Unhide_Selected_Sheets() Dim wks As Worksheet Dim MsgResult As VbMsgBoxResult For Each wks In ActiveWorkbook.Worksheets If wks.Visible = xlSheetHidden Then MsgResult = MsgBox( "Unhide sheet " & wks.Name & "?" , vbYesNo, "Unhiding worksheets" ) If MsgResult = vbYes Then wks.Visible = xlSheetVisible End If Next End Sub

Откриване на работни листове с определена дума в името на листа

В ситуации, когато искате да скриете само листове, съдържащи определен текст в имената си, добавете към макроса оператор IF, който ще провери името на всеки скрит работен лист и ще скрие само тези листове, които съдържат посочения от вас текст.

В този пример премахваме листовете с думата " доклад " в името. Макросът ще покаже листове като Доклад , Доклад 1 , Доклад за юли и други подобни.

За да премахнете скриването на работни листове, чиито имена съдържат друга дума, заменете " доклад " в следния код със собствен текст.

Sub Unhide_Sheets_Contain() Dim wks As Worksheet Dim count As Integer count = 0 For Each wks In ActiveWorkbook.Worksheets If (wks.Visible xlSheetVisible) And (InStr(wks.Name, "report" )> 0) Then wks.Visible = xlSheetVisible count = count + 1 End If Next wks If count> 0 Then MsgBox count & " worksheets have been unhidden." , vbOKOnly, "Unhiding worksheets" Else MsgBox "No hiddenworksheets with the specified name have been found." , vbOKOnly, "Unhiding worksheets" End If End Sub

Как да използвате макросите за скриване на листове в Excel

За да използвате макросите в работния си лист, можете да копирате/вмъкнете кода в редактора на Visual Basic или да изтеглите работната книга с макросите и да ги стартирате оттам.

Как да вмъкнете макроса в работната си книга

По този начин можете да добавите всеки от горните макроси към работната си книга:

1. Отворете работната книга със скрити листове.
2. Натиснете Alt + F11, за да отворите редактора на Visual Basic.
3. В левия прозорец щракнете с десния бутон на мишката върху Тази работна книга и изберете Вмъкване на > Модул от контекстното меню.
4. Поставете кода в прозореца Код.
5. Натиснете F5, за да стартирате макроса.

За подробни инструкции стъпка по стъпка вижте Как да вмъкнете и стартирате VBA код в Excel.

Изтегляне на работната книга с макросите

Като алтернатива можете да изтеглите нашата примерна работна книга за скриване на листове в Excel, която съдържа всички макроси, разгледани в този урок:

• Unhide_All_Sheets - скриване на всички работни листове в активна работна книга за момент и безшумно.
• Unhide_All_Sheets_Count - покажете всички скрити листове заедно с техния брой.
• Unhide_Selected_Sheets - показване на скрити листове, които сте избрали да скриете.
• Unhide_Sheets_Contain - скриване на работни листове, чиито имена съдържат определена дума или текст.

За да стартирате макросите в Excel, трябва да направите следното:

1. Отворете изтеглената работна книга и активирайте макросите, ако бъдете подканени.
2. Отворете собствена работна книга, в която искате да видите скрити листове.
3. В работната си книга натиснете Alt + F8 , изберете желания макрос и щракнете върху Изпълнявайте .

Например, за да премахнете скриването на всички листове във вашия файл на Excel и да покажете броя на скритите листове, изпълнявате този макрос:

Как да показвате скрити листове в Excel чрез създаване на потребителски изглед

Освен с макроси, досадното показване на скритите работни листове един по един може да се преодолее чрез създаване на потребителски изглед. Ако не сте запознати с тази функция на Excel, можете да си представите потребителския изглед като моментна снимка на настройките на работната книга, която може да се приложи във всеки един момент с едно щракване на мишката. Този метод е най-добре да се използва в самото начало на работата, когато нито един от листовете все още не е скрит.

Това, което ще направим сега, е да създадем Показване на всички листове персонализиран изглед. Ето как:

1. Уверете се, че всички електронни таблици в работната ви книга са видими . Този съвет показва как бързо да проверите работната книга за скрити листове.
2. Отидете в Вижте tab> Изгледи на работната книга и щракнете върху Потребителски изгледи бутон.

Сайтът Потребителски изглед ще се появи диалогов прозорец и щракнете върху Добавете...

в Добавяне на изглед диалогов прозорец, въведете името на потребителския изглед, например ShowAllSheets и щракнете върху OK.

Сега можете да скриете колкото искате работни листове, а когато искате да ги направите отново видими, щракнете върху Потребителски изгледи изберете бутона ShowAllSheet изглед и щракнете върху Покажи или просто щракнете два пъти върху изгледа.

Това е всичко! Всички скрити листове ще бъдат показани веднага.

Как да проверите дали дадена работна книга съдържа скрити листове

Най-бързият начин за откриване на скрити листове в Excel е следният: щракнете с десния бутон на мишката върху всеки раздел на листа и вижте дали Скрийте... Ако е разрешена, щракнете върху нея и вижте кои листове са скрити. Ако е забранена (в сиво), работната книга не съдържа скрити листове.

Забележка: Този метод не показва много скрити листове. Единственият начин да видите такива листове е да ги скриете с VBA.

Не можете да премахнете скриването на листове в Excel - проблеми и решения

Ако не можете да скриете определени листове в Excel, следните съвети за отстраняване на неизправности могат да хвърлят светлина върху причините за това.

1. Работната книга е защитена

Не е възможно да се скриват или премахват листове, ако структура на работната книга е защитена (не трябва да се бърка с криптиране с парола на ниво работна книга или защита на работния лист). За да проверите това, отидете в Преглед на tab> Промени и разгледайте Работна тетрадка Protect Ако този бутон е осветен в зелено, работната книга е защитена. Работна тетрадка Protect въведете паролата, ако бъдете подканени, и запазете работната книга. За повече информация вижте Как да отключите защитена работна книга в Excel.

2. Работните листове са много скрити

Ако работните ви листове са скрити чрез код VBA, който ги прави много скрити (присвоява xlSheetVeryHidden ), такива работни листове не могат да бъдат показани с помощта на Разкриване на За да отмените скриването на много скрити листове, трябва да промените свойството от xlSheetVeryHidden към xlSheetVisible от редактора на Visual Basic или да стартирате този код VBA.

3. В работната книга няма скрити листове

Ако Разкриване на е сива както в лентата, така и в менюто на десния бутон на мишката, което означава, че в работната ви книга няма нито един скрит лист :)

Това е начинът, по който можете да премахнете скриването на листове в Excel. Ако сте любопитни да разберете как да скриете или премахнете други обекти, като редове, колони или формули, ще намерите подробна информация в статиите по-долу. Благодаря ви за четенето и се надявам да се видим в нашия блог следващата седмица!

Налични изтегляния

Макроси за скриване на работни листове в Excel