VBA Slėpti (arba rodyti) darbalapį - VBA kodo pavyzdžiai

Š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.

wave wave wave wave wave