See õpetus õpetab teile, kuidas VBA abil töölehti peita ja peita.
Peida leht VBA -s
Lehe peitmiseks VBA -s kasutage töölehe atribuut Visible.
Määrake atribuudi Visible väärtuseks VÄÄR:
| 1 | Töölehed ("Sheet1"). Nähtav = vale |
või määrake atribuudi Visible väärtuseks xlSheetHidden:
| 1 | Töölehed ("Sheet1"). Nähtav = xlSheetHidden |
See on sama, mis siis, kui kasutaja paremklõpsake töölehe vahekaarti ja valis "peida".
Lehe peitmine
Lehe peitmiseks VBA -s kasutage töölehe nähtav atribuuti:
| 1 | Töölehed ("Sheet1"). Visible = True |
või
| 1 | Töölehed ("Sheet1"). Visible = xlSheetVisible |
Peidetud lehti saab vaadata, kui paremklõpsate vahekaardil Tööleht:
Väga peidetud lehed
Atribuudil Sheet Visible on kolmas võimalus: xlSheetVeryHidden:
| 1 | Töölehed ("Sheet1"). Visible = xlSheetVeryHidden |
Väga peidetud arvutustabelid on töölehe vahekaardil paremklõpsates peidetud:
See kood takistab arvutustabeli kasutajal ekraani allosas vahekaardi Tööleht nägemist. Samuti peidab see töölehe kasutaja eest, kui ta paremklõpsab allosas olevaid sakke. Ainus viis töölehe olemasolu (või töölehe peitmise tühjendamiseks) nägemiseks on Visual Basic Editori avamine.
Peida väga peidetud lehed
Väga peidetud töölehed tehakse nähtavaks nagu tavalised peidetud töölehed:
| 1 | Töölehed ("Sheet1"). Visible = True |
või
| 1 | Töölehed ("Sheet1"). Visible = xlSheetVisible |
Peida / peida lehed VBA redaktoris
Samuti saate VBA redaktoris atribuudi Tööleht nähtav ümber lülitada.
Peida kõik töölehe vahelehed
Samuti võite soovida töölehe vahelehe ala täielikult peita, et takistada kasutajal erinevatele töölehtedele liikumist. Lisateave töölehe vahelehtede peitmise kohta.
Peida / peida lehed kaitstud töövihikus
Enne töölehtede peitmist või peitmist peab teie töövihik olema kaitsmata. Töövihiku struktuuri kaitsest vabastamiseks kasutage järgmist koodi:
| 1 | ActiveWorkbook. Kaitse |
Kui teie töövihiku struktuur on parooliga kaitstud, peate selle asemel tegema järgmist.
| 1 | ThisWorkbook.Kaitse "parooli" kaitse |
Näita kõiki lehti
See protseduur kuvab kõik töövihiku töölehed, kasutades iga silmuse jaoks järgmist.
| 12345678 | Alamesitlus_Kõik_lehed ()Dim ws töölehenaActiveWorkbook. KaitseIga ws töölehtedelws.Visible = xlSheetVisibleEdasiEnd Sub |
Pange tähele, et kõigepealt eemaldame töövihiku kaitse igaks juhuks, kui see oli parooliga kaitstud.
