U ovom ćemo članku stvoriti makro za skrivanje Excel lista. Excel list se skriva promjenom njegovih svojstava pomoću VBA koda. Skriveni Excel list ne može se učiniti vidljivim pomoću gumba za otkrivanje u aplikaciji Excel.
U ovom primjeru stvorili smo obrazac za registraciju vrata.
Kada korisnik unese podatke u obrazac i klikne gumb za slanje, podaci se spremaju u tablicu "Podaci". Gumbu "Pošalji" dodijeljena je makronaredba "SubmittingDetail".
List s podacima može se sakriti ili sakriti klikom na gumb Podaci. Ako je tablica "Podaci" skrivena, ne može se učiniti vidljivom pomoću opcije otkrivanja koja je dostupna u Excelovom listu.
List skriven pomoću gumba “List sa podacima” ostaje vidljiv u istraživaču projekata u VBE -u (uređivaču za Visual Basic), a svojstva lista skrivenog lista postavljena su na xlSheetVeryHidden.
List se također može učiniti vrlo skrivenim bez korištenja VBA koda. Za to moramo otvoriti VBE i postaviti vidljivo svojstvo lista u prozoru svojstava na 2 - xlSheetVeryHidden.
Za skrivanje lista, tako da ga nitko ne može otkriti, a da ne zna lozinku za Vb projekt, jednostavno sakrijte datoteku pomoću VBA koda ili promijenite vidljivo svojstvo lista na 2, tj. Xlsheetveryhidden i zaključajte Vb projekt zajedno s lozinkom.
Za zaštitu Vb projekta lozinkom, desnom tipkom miša kliknite Microsoft Excel objekt> Odabir svojstava VBAProject …> Pojavit će se dijaloški okvir Svojstva VBAProjekta.
U dijaloškom okviru Svojstva VBAProject idite na karticu Zaštita> potvrdite okvir za zaključavanje projekta> dodijelite lozinku za projekt. Lozinka koju dodjeljujemo priloženoj datoteci je "register". Za projekt se može dodijeliti bilo koja lozinka.
Gumb "List s podacima" koristi se i za skrivanje i za otkrivanje lista. Gumbu "List s podacima" dodijeljena je makronaredba "ToggleHidingDataSheet". Kada korisnik klikne gumb i ako je datoteka skrivena, tada se list čini vidljivim, a ako je list vidljiv, tada je list skriven.
List se može učiniti vidljivim ili klikom na gumb "List s podacima" ili promjenom vidljivog svojstva na 0, tj. XlSheetNormal pomoću lozinke za VBProject.
Molimo slijedite dolje za kôd
Sub SubmittingDetail () Dim LastRow As Long 'Pronalaženje posljednjeg retka u listu "Podaci"' u koji je potrebno umetnuti podatke LastRow = Sheets ("Podaci"). Raspon ("A1"). SpecialCells (xlLastCell) .Row + 1 'Umetanje podataka u tablicu "Podaci" s tablicama ("Podaci") "Dodjeljivanje serijskog broja .Range (" A "& LastRow) = LastRow - 1' Umetanje podataka u listu" Podaci "od raspona F15 do J15. Raspon (" B " "& LastRow &": F "& LastRow) = Raspon (" F15: J15 "). Vrijednost završava s" Brisanjem sadržaja ćelije u rasponu raspona ("F15: J15"). Odaberite Odabir. Raspon brisanja sadržaja ("F15" ) .Odaberite End Sub Sub ToggleHidingDataSheet () 'Provjera je li list trenutno skriven Ako su listovi ("Podaci"). Vidljiv = xlVeryHidden Then "Kôd za izradu listova vidljivim Tablice (" Podaci "). Vidljiv = True Else" Kod za skrivanje list Sheets ("Podaci"). Vidljiv = xlVeryHidden End If End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte