Šī apmācība iemācīs jums paslēpt un parādīt darblapas, izmantojot VBA.
Paslēpt lapu VBA
Lai paslēptu lapu VBA, izmantojiet darblapas rekvizītu Redzams.
Vai nu iestatiet rekvizītu Visible uz FALSE:
| 1 | Darblapas ("Sheet1"). Redzams = False |
vai iestatiet rekvizītu Visible uz xlSheetHidden:
| 1 | Darblapas ("Sheet1"). Redzams = xlSheetHidden |
Tas ir tāds pats kā tad, ja lietotājs ar peles labo pogu noklikšķinātu uz darblapas cilnes un atlasītu “paslēpt”.
Atklāt lapu
Lai parādītu lapu VBA, izmantojiet darblapas rekvizītu rekvizītu:
| 1 | Darblapas ("Sheet1"). Visible = True |
vai
| 1 | Darblapas ("Sheet1"). Visible = xlSheetVisible |
Slēptās lapas var redzēt, ar peles labo pogu noklikšķinot uz cilnes Darblapa:
Ļoti slēptas lapas
Rekvizītam Sheet Visible ir trešā iespēja: xlSheetVeryHidden:
| 1 | Darblapas ("Sheet1"). Visible = xlSheetVeryHidden |
Ļoti slēptās lapas tiek paslēptas, noklikšķinot ar peles labo pogu cilnes Darblapa apgabalā:
Šis kods neļaus izklājlapas lietotājam ekrāna apakšdaļā redzēt cilni Darblapa. Tas arī slēpj darblapu no lietotāja, kad viņš ar peles labo pogu noklikšķina uz cilnēm apakšā. Vienīgais veids, kā redzēt, vai darblapa pastāv (vai parādīt darblapu), ir atvērt Visual Basic redaktoru.
Paslēpt ļoti slēptās lapas
Ļoti slēptās darblapas ir redzamas tāpat kā parastās slēptās darblapas:
| 1 | Darblapas ("Sheet1"). Visible = True |
vai
| 1 | Darblapas ("Sheet1"). Visible = xlSheetVisible |
Paslēpt / parādīt lapas VBA redaktorā
Varat arī pārslēgt darblapas redzamo rekvizītu VBA redaktorā:
Slēpt visas darblapas cilnes
Iespējams, vēlēsities arī paslēpt darblapas cilnes apgabalu, lai lietotājs nevarētu pārvietoties uz dažādām darblapām. Uzziniet vairāk par darblapas cilņu slēpšanu.
Paslēpt / parādīt lapas aizsargātajā darbgrāmatā
Pirms darblapu paslēpšanas vai paslēpšanas darbgrāmatai jābūt neaizsargātai. Lai atsauktu darbgrāmatas struktūras aizsardzību, izmantojiet šādu kodu:
| 1 | ActiveWorkbook. Aizsargāt |
Ja jūsu darbgrāmatas struktūra ir aizsargāta ar paroli, tā vietā rīkojieties šādi:
| 1 | ThisWorkbook.Aizsargāt "paroli" |
Rādīt visas lapas
Šī procedūra parādīs visas darbgrāmatas darblapas, izmantojot funkciju Katrai cilpai:
| 12345678 | Sub Unhide_All_Sheets ()Dim ws kā darblapaActiveWorkbook. AizsargātPar katru ws darblapāsws.Visible = xlSheetVisibleNākamaisBeigu apakš |
Ņemiet vērā, ka vispirms mēs noņemam darbgrāmatas aizsardzību, tikai gadījumā, ja tā bija aizsargāta ar paroli.
