Selles artiklis loome makro Exceli lehe peitmiseks. Exceli leht on peidetud, muutes selle omadusi VBA -koodi abil. Peidetud Exceli lehte ei saa Exceli rakenduses kuvamisnupu abil nähtavaks muuta.
Selles näites oleme loonud värava registreerimisvormi.
Kui kasutaja sisestab vormi andmed ja klõpsab nupul Esita, salvestatakse andmed lehele „Andmed”. Nupule „Esita” on määratud makro „SubmissionDetail”.
Andmelehte saab peita või peita, klõpsates nuppu „Andmeleht”. Kui leht „Andmed” on peidetud, ei saa seda Exceli lehel saadaoleva peitmisvaliku abil nähtavaks muuta.
Leht on peidetud nupu „Andmeleht” abil, jääb VBE -s (Visual Basic Editor) projektiuurijas nähtavaks ja peidetud lehe lehe atribuutideks on määratud xlSheetVeryHidden.
Lehte saab ka väga varjata ilma VBA -koodi kasutamata. Selleks peame avama VBE ja määrama lehe nähtavaks omaduseks atribuutide aknas väärtuseks 2 - xlSheetVeryHidden.
Lehe peitmiseks, et keegi ei saaks seda peita ilma Vb -projekti parooli teadmata, peitke fail lihtsalt VBA -koodi abil või muutke lehe nähtav atribuut 2 -ks, st xlsheetveryhidden ja lukustage Vb -projekt koos parooliga.
Vb Projecti parooliga kaitsmiseks paremklõpsake Microsoft Exceli objektil> Valige VBAProject Properties …> VBAProject Properties dialoogiboks.
Avage dialoogiboksis VBAProjekti atribuudid vahekaart Kaitse> märkige projekti lukustamise ruut> määrake projektile parool. Lisatud faili jaoks määratud parool on „register”. Projektile saab määrata mis tahes parooli.
Nuppu „Andmeleht” kasutatakse lehe peitmiseks ja peitmiseks. Nupule „Andmeleht” on määratud makro „ToggleHidingDataSheet”. Kui kasutaja klõpsab nupul ja kui fail on peidetud, tehakse leht nähtavaks ja kui leht on nähtav, on leht peidetud.
Lehe saab nähtavaks teha, klõpsates nuppu „Andmeleht” või muutes nähtava atribuudi väärtuseks 0, st xlSheetNormal, kasutades VBProjecti parooli.
Palun järgige koodi allpool
Sub SubendingDetail () Dim LastRow As Long 'Lehe "Data" viimase rea leidmine ", kuhu andmed tuleb sisestada LastRow = Sheets (" Data "). Vahemik (" A1 "). SpecialCells (xlLastCell) .Rida + 1 'Andmete sisestamine lehele "Andmed" lehtedega ("Andmed")' Seerianumbri määramine .Range ("A" & LastRow) = LastRow - 1 'Andmete sisestamine lehele "Andmed" vahemikus F15 kuni J15 .Range ("B "& LastRow &": F "& LastRow) = Vahemik (" F15: J15 "). Väärtus lõpeb 'Lahtrite sisu kustutamisega vahemikust (" F15: J15 "). Valige Selection.ClearContents Range (" F15 " ). Valige End Sub Sub ToggleHidingDataSheet () 'Kontrollimine, kas leht on praegu peidetud, kui arvutustabelid ("Andmed"). Visible = xlVeryHidden Then "Kood lehe nähtavaks tegemiseks Lehed (" Andmed "). Visible = True Else" Peitmise kood lehed Sheets ("Andmed"). Visible = xlVeryHidden End If End Sub
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile