V tem članku bomo ustvarili makro za skrivanje lista Excel. Excelov list je skrit s spreminjanjem njegovih lastnosti z uporabo kode VBA. Skritega Excelovega lista ni mogoče prikazati z gumbom za razkrivanje v Excelovi aplikaciji.
V tem primeru smo ustvarili obrazec za registracijo vrat.
Ko uporabnik vnese podatke v obrazec in klikne gumb za predložitev, se podatki shranijo na list »Podatki«. Gumbu »Pošlji« je dodeljen makro »SubmittingDetail«.
List s podatki lahko skrijete ali skrijete s klikom na gumb Podatkovni list. Če je list »Podatki« skrit, ga ne morete narediti vidnega z uporabo možnosti razkrivanja, ki je na voljo v Excelovem listu.
List, skrit z gumbom »Podatkovni list«, ostane viden v raziskovalcu projektov v VBE (urejevalnik Visual Basic), lastnosti lista skritega lista pa so nastavljene na xlSheetVeryHidden.
List je lahko tudi zelo skrit brez uporabe kode VBA. Za to moramo odpreti VBE in nastaviti vidno lastnost lista v oknu lastnosti na 2 - xlSheetVeryHidden.
Če želite skriti list, tako da ga nihče ne more razkriti, ne da bi vedel geslo za projekt Vb, preprosto skrijete datoteko s pomočjo kode VBA ali spremenite vidno lastnost lista na 2, to je xlsheetveryhidden, in zaklenite projekt Vb skupaj z geslom.
Za zaščito projekta Vb z geslom z desno miškino tipko kliknite predmet Microsoft Excel> Izberite lastnosti VBAProject …> Pojavi se pogovorno okno Lastnosti VBAProject.
V pogovornem oknu Lastnosti VBAProject pojdite na zavihek Zaščita> potrdite polje za zaklepanje projekta> dodelite geslo za projekt. Geslo, ki ga dodelimo priloženi datoteki, je »register«. Za projekt lahko dodelite poljubno geslo.
Gumb »Podatkovni list« se uporablja za skrivanje in razkrivanje lista. Gumbu »Podatkovni list« je dodeljen makro »ToggleHidingDataSheet«. Ko uporabnik klikne gumb in če je datoteka skrita, postane list viden, če pa je list viden, se list skrije.
List je lahko viden tako, da kliknete gumb »Podatkovni list« ali pa spremenite vidno lastnost nazaj v 0, to je xlSheetNormal z geslom za VBProject.
Za kodo sledite spodaj
Sub SubmittingDetail () Dim LastRow As Long 'Iskanje zadnje vrstice v listu "Podatki", kamor je treba vnesti podatke LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell) .Row + 1 'Vstavljanje podatkov v list "Podatki" s listi ("Podatki")' Dodelitev serijske številke .Range ("A" & LastRow) = LastRow - 1 'Vstavljanje podatkov v list "Podatki" od območja F15 do J15. "& LastRow &": F "& LastRow) = Obseg (" F15: J15 "). Vrednost se konča z" Brisanjem vsebine celice v območju "(" F15: J15 "). Izberite Selection.ClearContents Range (" F15 " ) .Izberi End Sub Sub ToggleHidingDataSheet () 'Preverjanje, ali je list trenutno skrit, če so listi ("podatki"). listi ("Podatki"). Vidno = xlVeryHidden End If End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte