Ta vadnica vas bo naučila, kako skriti in razkriti delovne liste z VBA.
Skrij list v VBA
Če želite skriti list v VBA, uporabite lastnost delovnega lista Visible.
Lastnost Visible nastavite na FALSE:
| 1 | Delovni listi ("List1"). Visible = False |
ali nastavite lastnost Visible na xlSheetHidden:
| 1 | Delovni listi ("List1"). Visible = xlSheetHidden |
To je enako, kot če bi uporabnik z desno tipko miške kliknil zavihek delovnega lista in izbral »skrij«.
Razkrij list
Če želite razkriti list v VBA, uporabite lastnost delovnega lista Visible:
| 1 | Delovni listi ("List1"). Vidno = True |
ali
| 1 | Delovni listi ("List1"). Visible = xlSheetVisible |
Skrite liste lahko vidite z desnim klikom na področju zavihka Delovni list:
Zelo skriti listi
Lastnost Sheet Visible ima tretjo možnost: xlSheetVeryHidden:
| 1 | Delovni listi ("List1"). Vidno = xlSheetVeryHidden |
Zelo skriti listi so skriti, če z desno miškino tipko kliknete na zavihku delovnega lista:
Ta koda bo uporabniku preglednice preprečila ogled zavihka Delovni list na dnu zaslona. Prav tako skrije delovni list pred uporabnikom, ko z desno tipko miške klikne zavihke na dnu. Edini način, da preverite, ali delovni list obstaja (ali razkrijete delovni list), je tako, da odprete urejevalnik Visual Basic.
Skrij zelo skrite liste
Zelo skriti delovni listi so vidni tako kot običajni skriti delovni listi:
| 1 | Delovni listi ("List1"). Vidno = True |
ali
| 1 | Delovni listi ("List1"). Visible = xlSheetVisible |
Skrij / razkrij liste v urejevalniku VBA
V urejevalniku VBA lahko preklopite tudi lastnost Vidni delovni list:
Skrij vse zavihke delovnega lista
Morda boste želeli v celoti skriti tudi zavihek delovnega lista, da uporabniku preprečite krmarjenje po različnih delovnih listih. Preberite več o skrivanju zavihkov delovnega lista.
Skrij / razkrij liste v zaščitenem delovnem zvezku
Delovni zvezek mora biti nezaščiten, preden lahko skrijete ali razkrijete delovne liste. Če želite odstraniti zaščito strukture delovnega zvezka, uporabite naslednjo kodo:
| 1 | ActiveWorkbook.Unprotect |
Če je struktura vašega delovnega zvezka zaščitena z geslom, morate to narediti:
| 1 | ThisWorkbook.Odstrani "geslo" |
Razkrij vse liste
Ta postopek bo razkril vse delovne liste v delovnem zvezku z uporabo za vsako zanko:
| 12345678 | Sub Unhide_All_Sheets ()Zatemni kot delovni listActiveWorkbook.UnprotectZa vsak ws na delovnih listihws.Visible = xlSheetVisibleNaslednjiEnd Sub |
Upoštevajte, da najprej odstranimo zaščito delovnega zvezka, samo v primeru, da je bil zaščiten z geslom.
