Šioje pamokoje paaiškinamas skirtumas tarp paslėptų ir labai paslėptų lapų, paaiškinama, kaip padaryti darbalapį labai paslėptą ir kaip peržiūrėti labai paslėptus lapus "Excel" programoje.

Ar esate susierzinę, nes negalite rasti skaičiuoklės, į kurią nukreipia viena iš jūsų formulių? Šis lapas nerodomas tarp kitų skirtukų darbaknygės apačioje, taip pat nerodomas Neslėpti dialogo langas. Kur, po velnių, galėtų būti tas lapas? Paprasčiausiai jis labai paslėptas.

Kas yra labai paslėptas "Excel" darbalapis?

Kaip visi žino, "Excel" lapas gali būti matomas arba paslėptas. Tiesą sakant, yra du darbalapio paslėpimo lygiai: paslėptas ir labai paslėpta .

Paslėpti įprastai paslėptą lapą labai paprasta. Tereikia dešiniuoju pelės klavišu spustelėti bet kurį matomą darbalapį, spustelėti Atskleisti ir pasirinkite norimą peržiūrėti lapą. Labai paslėpti lapai - kita istorija. Jei sąsiuvinyje yra tik labai paslėpti lapai, net negalėsite atidaryti Neslėpti dialogo langą, nes Neslėpti Jei sąsiuvinyje yra ir paslėptų, ir labai paslėptų lapų, komanda Neslėpti dialogas bus prieinamas, tačiau labai paslėpti lapai nebus įtraukti į sąrašą.

Kaip "Excel" techniškai atskiria paslėptus ir labai paslėptus darbalapius? Pagal Matomas lapo savybė, kuri gali turėti vieną iš šių reikšmių:

• xlSheetVisible (arba TRUE) - lapas matomas
• xlSheetHidden (arba FALSE) - lapas paslėptas
• xlSheetVeryHidden - lapas yra labai paslėptas

Nors kiekvienas gali perjungti TRUE (matoma) ir FALSE (paslėpta) naudodamas "Excel Neslėpti arba Paslėpti komandų. xlVeryHidden vertę galima nustatyti tik Visual Basic redaktoriuje.

Koks skirtumas tarp paslėptų ir labai paslėptų lapų, žvelgiant iš naudotojo perspektyvos? Tai yra paprasta: labai paslėptas lapas negali būti matomas per "Excel" naudotojo sąsają, vienintelis būdas jį paslėpti - naudoti VBA. Taigi, jei norite, kad kai kuriuos jūsų darbalapius kitiems būtų daug sunkiau paslėpti (pvz., tuos, kuriuose yra konfidencialios informacijos arba tarpinių formulių), naudokite šį aukštesnįpaslėpimo lygį ir padaryti juos labai paslėptus.

Kaip padaryti, kad "Excel" darbalapiai būtų labai paslėpti

Kaip jau minėta, vienintelis būdas padaryti lapą labai paslėptą yra naudojant Visual Basic redaktorių. Priklausomai nuo to, kiek lapų norite paslėpti, galite imtis vieno iš toliau nurodytų būdų.

Padarykite darbalapį labai paslėptą pakeisdami jo savybę Visible

Jei norite visiškai paslėpti tik vieną ar du lapus, galite pakeisti Matomas kiekvieno lapo savybę rankiniu būdu. Štai kaip:

1. Paspauskite Alt + F11 arba spustelėkite "Visual Basic mygtukas ant Kūrėjas skirtukas. Bus atidarytas Visual Basic redaktorius, kurio viršutiniame kairiajame kairiajame skydelyje esančiame lange Project Explorer (Projekto tyrėjas) rodomas visų atidarytų sąsiuvinių ir jų lapų medis.
2. Paspauskite F4 arba spustelėkite Peržiūrėti > Savybės . Tai privers Savybės langą, kad jis būtų rodomas iškart po "Project Explorer" (žr. toliau pateiktą ekrano nuotrauką). Savybės langas jau yra, praleiskite šį žingsnį :)
3. Projekto naršyklės lange spustelėkite darbalapį, kurį norite padaryti labai paslėptą, kad jį pažymėtumėte.
4. Į Savybės langą, nustatykite Matomas nuosavybė į 2 - xlSheetVeryHidden .

Štai ir viskas! Kai tik Matomas savybė bus pakeista, atitinkamo lapo skirtukas išnyks iš darbaknygės apačios. Jei reikia, pakartokite pirmiau nurodytus veiksmus su kitais lapais ir, baigę darbą, uždarykite Visual Basic redaktoriaus langą.

Aktyvųjį darbalapį paverskite labai paslėptu naudodami VBA kodą

Jei nuolat tenka slėpti lapus ir jus erzina, kad tai tenka daryti rankiniu būdu, šį darbą galite automatizuoti naudodami vieną kodo eilutę. Čia pateikiamas makrokomandas, kuris aktyvų darbo lapą padaro labai paslėptą:

Sub VeryHiddenActiveSheet() ActiveSheet.Visible = xlSheetVeryHidden End Sub

Jei rašote makrokomandą kitiems naudotojams, galbūt norėsite pasirūpinti situacijomis, kai darbaknygėje yra tik vienas matomas lapas. Kaip pamenate, neįmanoma paslėpti absoliučiai visų "Excel" failo darbalapių (nesvarbu, ar jie paslėpti, ar labai paslėpti), bent vienas lapas turi likti matomas. Taigi, norėdami įspėti naudotojus apie šį apribojimą, pirmiau pateiktą makrokomandą įvilkite į Dėl klaidos blokas kaip šis:

Sub VeryHiddenActiveSheet() On Error GoTo ErrorHandler ActiveSheet.Visible = xlSheetVeryHidden Exit Sub ErrorHandler : MsgBox "A workbook must contain at least one visible worksheet." , vbOKOnly, "Unable to Hide Worksheet" End Sub

Padarykite kelis darbalapius labai paslėptus naudodami VBA kodą

Jei norite nustatyti visus pasirinktus lapus būti labai paslėptas, eikite per visus pasirinktus aktyvios darbo knygos (ActiveWindow) lapus vieną po kito ir pakeiskite jų Matomas nuosavybė į xlSheetVeryHidden .

Sub VeryHiddenSelectedSheets() Dim wks As Worksheet On Error GoTo ErrorHandler For Each wks In ActiveWindow.SelectedSheets wks.Visible = xlSheetVeryHidden Next Exit Sub ErrorHandler : MsgBox "Sąsiuvinyje turi būti bent vienas matomas darbalapis." , vbOKOnly, "Unable to Hide Worksheets" End Sub

Kaip panaikinti labai paslėptus "Excel" lapus

Dabar, kai jau žinote, kaip visiškai paslėpti "Excel" lapus, metas pakalbėti apie tai, kaip galite peržiūrėti labai paslėptus lapus.

Labai paslėpto darbalapio paslėpimo panaikinimas keičiant jo savybę Visible

Norėdami vėl matyti paslėptą darbalapį, tiesiog pakeiskite jo Matomas nuosavybę atgal į xlSheetVisible .

1. Paspauskite Alt + F11, kad atidarytumėte Visual Basic redaktorių.
2. Į VBAProjektas lange pasirinkite darbalapį, kurį norite paslėpti.
3. Į Savybės langą, nustatykite Matomas nuosavybė į -1 - xlSheetVisible .

Atlikta!

Visų labai paslėptų lapų paslėpimo panaikinimas naudojant VBA

Jei turite nemažai labai paslėptų lapų ir norite, kad visi jie vėl būtų matomi, šis makrokomandos veiks puikiai:

Sub UnhideVeryHiddenSheets() Dim wks As Worksheet For Each wks In Worksheets If wks.Visible = xlSheetVeryHidden Then wks.Visible = xlSheetVisible Next End Sub

Pastaba. Šis makrokomandas tik panaikina labai paslėpti lapai , o ne įprastai paslėptus darbo lapus. Jei norite rodyti absoliučiai visus paslėptus lapus, naudokite toliau pateiktą.

vienu metu paslėpti visus paslėptus ir labai paslėptus lapus

Jei norite vienu metu parodyti visus paslėptus aktyvios darbo knygos lapus, tiesiog nustatykite Matomas kiekvieno lapo savybė TRUE arba xlSheetVisible .

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

Kaip naudoti "Very Hidden Sheets" makrokomandas

Norėdami įterpti bet kurią iš pirmiau nurodytų makrokomandų į "Excel" darbo knygą, atlikite šiuos įprastus veiksmus:

1. Atidarykite sąsiuvinį, kuriame norite paslėpti arba paslėpti lapus.
2. Paspauskite Alt + F11, kad atidarytumėte Visual Basic redaktorių.
3. Kairiajame lange dešiniuoju pelės klavišu spustelėkite Ši darbo knyga ir pasirinkite Įdėkite > Modulis iš kontekstinio meniu.
4. Įklijuokite kodą į langą Kodas.
5. Paspauskite F5, kad paleistumėte makrokomandą.

Norėdami išsaugoti makrokomandą, būtinai išsaugokite failą kaip "Excel" darbaknygę su makrokomandomis (.xlsm). Išsamias žingsnis po žingsnio instrukcijas rasite skyriuje Kaip įterpti ir paleisti VBA kodą "Excel".

Taip pat galite atsisiųsti mūsų pavyzdinę darbo knygą su makrokomandomis ir paleisti norimą makrokomandą tiesiai iš tos darbo knygos.

Pavyzdiniame sąsiuvinyje yra šios makrokomandos:

• VeryHiddenActiveSheet - aktyvus lapas tampa labai paslėptas.
• VeryHiddenSelectedSheets - visi pasirinkti lapai tampa labai paslėpti.
• UnhideVeryHiddenSheets - panaikina visų labai paslėptų aktyvios darbo knygos lapų paslėpimą.
• UnhideAllSheets - rodo visus paslėptus aktyvios darbo knygos lapus (normaliai paslėptus ir labai paslėptus).

Norėdami paleisti makrokomandas "Excel" programoje, atlikite šiuos veiksmus:

1. Atidarykite atsisiųstą sąsiuvinį ir, jei paprašyta, įjunkite makrokomandas.
2. Atidarykite savo sąsiuvinį.
3. Darbaknygėje paspauskite Alt + F8 , pasirinkite dominantį makrokomandą ir spustelėkite Paleisti .

Pavyzdžiui, štai kaip galite padaryti, kad visi pasirinkti darbalapiai būtų labai paslėpti:

Tikiuosi, kad ši trumpa pamoka šiek tiek nušvietė labai paslėptus "Excel" lapus. Dėkoju, kad perskaitėte, ir tikiuosi, kad kitą savaitę susitiksime mūsų tinklaraštyje!

Atsisiųsti pavyzdinį sąsiuvinį

Labai paslėptos "Sheets" makrokomandos (.xlsm failas)