Šiame straipsnyje mes sukursime „Excel“ lapo paslėpimo makrokomandą. „Excel“ lapas yra paslėptas keičiant jo savybes naudojant VBA kodą. Paslėptas „Excel“ lapas negali būti matomas naudojant „Excel“ programos rodymo mygtuką.
Šiame pavyzdyje mes sukūrėme vartų registracijos formą.
Vartotojui įvedus išsamią informaciją formoje ir spustelėjus mygtuką „Pateikti“, informacija išsaugoma „Duomenų“ lape. Mygtukui „Pateikti“ priskiriama makrokomanda „SubmissionDetail“.
„Duomenų“ lapą galima paslėpti arba paslėpti spustelėjus mygtuką „Duomenų lapas“. Jei lapas „Duomenys“ yra paslėptas, jo negalima padaryti matomo naudojant „Excel“ lape esančią parinktį „Unhide“.
Lapas, paslėptas naudojant mygtuką „Duomenų lapas“, lieka matomas VBE („Visual Basic“ redaktoriaus) projekto tyrinėtojuje, o paslėpto lapo ypatybės nustatomos į xlSheetVeryHidden.
Lapas taip pat gali būti labai paslėptas nenaudojant VBA kodo. Norėdami tai padaryti, turime atidaryti VBE ir nustatyti matomą lapo ypatybę ypatybių lange į 2 - xlSheetVeryHidden.
Norėdami paslėpti lapą, kad niekas negalėtų jo paslėpti nežinodamas „Vb Project“ slaptažodžio, tiesiog paslėpkite failą naudodami VBA kodą arba pakeiskite matomą lapo savybę į 2, t. Y. „Xlsheetveryhidden“, ir užrakinkite „Vb Project“ kartu su slaptažodžiu.
Norėdami apsaugoti „Vb Project“ slaptažodžiu, dešiniuoju pelės mygtuku spustelėkite „Microsoft Excel“ objektą> Pasirinkite „VBAProject Properties…“> pasirodys dialogo langas „VBAProject Properties“.
Dialogo lange „VBAProject Properties“ eikite į skirtuką „Apsauga“> pažymėkite projekto užrakinimo langelį> priskirkite projekto slaptažodį. Slaptažodis, kurį priskiriame pridėtam failui, yra „register“. Projektui galima priskirti bet kokį slaptažodį.
Mygtukas „Duomenų lapas“ naudojamas ir slėpti, ir atskleisti lapą. Mygtukui „Duomenų lapas“ priskirta makrokomanda „ToggleHidingDataSheet“. Kai vartotojas spustelės mygtuką ir failas bus paslėptas, lapas bus matomas, o jei lapas matomas, tada lapas bus paslėptas.
Lapas gali būti matomas spustelėjus mygtuką „Duomenų lapas“ arba pakeičiant matomą savybę atgal į 0, t. Y. „XlSheetNormal“ naudojant „VBProject“ slaptažodį.
Sekite toliau pateiktą kodą
Sub SubendingDetail () Dim LastRow As Long 'Rasti paskutinę eilutę "Data" lape ", kur reikia įterpti duomenis LastRow = Sheets (" Data "). Diapazonas (" A1 "). SpecialCells (xlLastCell) .Row + 1 'Duomenų įterpimas į "Duomenų" lapą su lapais ("Duomenys")' Serijos numerio priskyrimas .Range ("A" & LastRow) = LastRow - 1 'Duomenų įterpimas į "Data" lapą nuo diapazono F15 iki J15 .Range ("B "& LastRow &": F "& LastRow) = Diapazonas (" F15: J15 "). Reikšmė baigiasi" Ištrinant langelio turinį diapazone ("F15: J15"). Pasirinkite Selection.ClearContents Range ("F15") ). Pasirinkite „Pabaigos antrinis subproduktas“ ToggleHidingDataSheet () „Tikrinimas, ar lapas šiuo metu yra paslėptas, jei skaičiuoklės („ Duomenys “). Visible = xlVeryHidden Then“ Kodas, skirtas padaryti lapą matomu Lakštai („Duomenys“). Visible = True Else “Paslėpimo kodas lapo lakštai („Duomenys“). Visible = xlVeryHidden End If End Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el