Šajā rakstā mēs izveidosim makro Excel lapas slēpšanai. Excel lapa tiek paslēpta, mainot tās rekvizītus, izmantojot VBA kodu. Slēpto Excel lapu nevar padarīt redzamu, izmantojot Excel lietojumprogrammas atvēršanas pogu.
Šajā piemērā mēs esam izveidojuši vārtu reģistrācijas veidlapu.
Kad lietotājs ievada informāciju veidlapā un noklikšķina uz pogas Iesniegt, informācija tiek saglabāta lapā “Dati”. Pogai “Iesniegt” ir piešķirts makro “SubmissionDetail”.
Lapu “Dati” var paslēpt vai paslēpt, noklikšķinot uz pogas “Datu lapa”. Ja lapa “Dati” ir paslēpta, to nevar padarīt redzamu, izmantojot opciju Atklāt opciju, kas pieejama Excel lapā.
Lapa tiek paslēpta, izmantojot pogu “Datu lapa”, paliek redzama VBE (Visual Basic Editor) projekta izpētē, un slēptās lapas lapas rekvizīti ir iestatīti uz xlSheetVeryHidden.
Lapu var arī ļoti paslēpt, neizmantojot VBA kodu. Šim nolūkam mums ir jāatver VBE un jāiestata lapas redzamais rekvizīts rekvizītu logā uz 2 - xlSheetVeryHidden.
Lai paslēptu lapu, lai neviens to nevarētu paslēpt, nezinot Vb projekta paroli, vienkārši paslēpiet failu, izmantojot VBA kodu, vai mainiet lapas redzamo īpašību uz 2, t.i., xlsheetveryhidden, un bloķējiet Vb projektu kopā ar paroli.
Lai aizsargātu Vb Project ar paroli, ar peles labo pogu noklikšķiniet uz Microsoft Excel objekta> Atlasīt VBAProject Properties …> Parādīsies dialoglodziņš VBAProject Properties.
Dialoglodziņā VBAProjekta rekvizīti atveriet cilni Aizsardzība> atzīmējiet izvēles rūtiņu projekta bloķēšanai> piešķiriet projekta paroli. Parole, kuru mēs piešķiram pievienotajam failam, ir “reģistrs”. Projektam var piešķirt jebkuru paroli.
Poga “Datu lapa” tiek izmantota lapas slēpšanai un slēpšanai. Pogai “Datu lapa” ir piešķirts makro “ToggleHidingDataSheet”. Kad lietotājs noklikšķinās uz pogas un ja fails ir paslēpts, lapa ir redzama, un, ja lapa ir redzama, lapa ir paslēpta.
Lapu var padarīt redzamu, noklikšķinot uz pogas “Datu lapa” vai mainot redzamo rekvizītu atpakaļ uz 0, ti, xlSheetNormal, izmantojot paroli VBProject.
Lūdzu, sekojiet tālāk norādītajam kodam
Sub SubendingDetail () Dim LastRow tik ilgi "Pēdējās rindas atrašana lapā" Dati "", kur jāievieto dati LastRow = Sheets ("Data"). Diapazons ("A1"). SpecialCells (xlLastCell). Row + 1 'Datu ievietošana lapā "Dati" ar lapām ("Dati")' Sērijas numura piešķiršana .Range ("A" & LastRow) = LastRow - 1 'Datu ievietošana lapā "Dati" no diapazona F15 līdz J15 .Range ("B" "& LastRow &": F "& LastRow) = Diapazons (" F15: J15 "). Vērtība beidzas ar 'Šūnu satura dzēšana diapazonā (" F15: J15 "). Atlasiet Selection.ClearContents Range (" F15 ") ). Atlasiet Beigu apakšnodaļa ToggleHidingDataSheet () 'Pārbaude, vai lapa pašlaik ir paslēpta Ja lapas ("Dati"). Visible = xlVeryHidden Then "Kods, kā padarīt lapu redzamu Izklājlapas (" Dati "). Visible = True Else" Slēpšanas kods lapas Sheets ("Dati"). Visible = xlVeryHidden End If End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē
