Ši pamoka išmokys jus, kaip paslėpti ir parodyti darbalapius naudojant VBA.
Slėpti lapą VBA
Norėdami paslėpti lapą VBA, naudokite darbalapio matomą ypatybę.
Nustatykite ypatybę „Matomas“ į „FALSE“:
1 | Darbo lapai („Sheet1“). Látható = Netiesa |
arba nustatykite ypatybę Visible į xlSheetHidden:
1 | Darbo lapai („Sheet1“). Látható = xlSheetHidden |
Tai tas pats, kas jei vartotojas dešiniuoju pelės klavišu spustelėtų darbalapio skirtuką ir pasirinktų „slėpti“.
Rodyti lapą
Norėdami atskleisti VBA lapą, naudokite darbalapio matomą ypatybę:
1 | Darbo lapai („Sheet1“). Matomas = tiesa |
arba
1 | Darbo lapai („Sheet1“). Visible = xlSheetVisible |
Paslėptus lapus galima pamatyti dešiniuoju pelės klavišu spustelėjus skirtuką Darbo lapas:
Labai paslėpti lapai
„Sheet Visible“ ypatybė turi trečią parinktį: xlSheetVeryHidden:
1 | Darbo lapai („Sheet1“). Visible = xlSheetVeryHidden |
Labai paslėpti skaičiuoklės yra paslėptos, kai dešiniuoju pelės klavišu spustelėkite darbalapio skirtuko sritį:
Šis kodas neleis skaičiuoklės vartotojui matyti darbalapio skirtuko ekrano apačioje. Jis taip pat slepia darbalapį nuo vartotojo, kai jis dešiniuoju pelės mygtuku spustelėkite skirtukus apačioje. Vienintelis būdas pamatyti, ar darbalapis yra (arba rodyti darbalapį), yra atidaryti „Visual Basic“ redaktorių.
Slėpti labai paslėptus lapus
Labai paslėpti darbalapiai yra matomi kaip ir įprasti paslėpti darbalapiai:
1 | Darbo lapai („Sheet1“). Matomas = tiesa |
arba
1 | Darbo lapai („Sheet1“). Visible = xlSheetVisible |
Slėpti / rodyti lapus VBA redaktoriuje
Taip pat galite perjungti darbalapio matomą ypatybę VBA redaktoriuje:
Slėpti visus darbalapio skirtukus
Taip pat galbūt norėsite visiškai paslėpti darbalapio skirtuko sritį, kad vartotojas negalėtų pereiti prie skirtingų darbalapių. Sužinokite daugiau apie darbalapio skirtukų slėpimą.
Slėpti / rodyti lapus apsaugotoje darbaknygėje
Jūsų darbaknygė turi būti neapsaugota, kad galėtumėte slėpti arba rodyti darbalapius. Norėdami panaikinti darbaknygės struktūros apsaugą, naudokite šį kodą:
1 | „ActiveWorkbook“ .Atsarginti |
Jei jūsų darbaknygės struktūra yra apsaugota slaptažodžiu, turite tai padaryti:
1 | ThisWorkbook.Unprotect "password" |
Rodyti visus lapus
Ši procedūra atskleis visus darbaknygės darbalapius, naudodami parinktį „Už kiekvieną kilpą“:
12345678 | Antrinis Neslėpti_Visi_Skaičiuoklės ()Dim ws kaip darbalapis„ActiveWorkbook“ .AtsargintiUž kiekvieną ws darbalapiuosews.Visible = xlSheetVisibleKitasPabaiga Sub |
Atkreipkite dėmesį, kad pirmiausia pašaliname darbo knygos apsaugą, tik tuo atveju, jei ji buvo apsaugota slaptažodžiu.