I denne artikkelen vil vi lage en makro for å skjule Excel -arket. Excel -ark blir skjult ved å endre egenskapene ved hjelp av VBA -kode. Skjult Excel -ark kan ikke gjøres synlig ved å bruke avsløringsknappen i Excel -applikasjonen.
I dette eksemplet har vi opprettet et registreringsskjema for gate.
Når brukeren legger inn detaljene i skjemaet og klikker på send -knappen, lagres detaljer i "Data" -arket. "Send" -knappen er tilordnet "SubmittingDetail" -makro.
"Dataark" kan skjules eller skjules ved å klikke på "Dataark" -knappen. Hvis "Data" -arket er skjult, kan det ikke gjøres synlig ved å bruke alternativet til å skjule tilgjengelig i Excel -arket.
Ark skjult ved hjelp av "Dataark" -knappen, forblir synlig i prosjektutforsker i VBE (Visual Basic Editor), og arkegenskaper for skjult ark er satt til xlSheetVeryHidden.
Ark kan også gjøres veldig skjult uten å bruke VBA -kode. For det må vi åpne VBE og sette den synlige egenskapen til arket i egenskapsvinduet til 2 - xlSheetVeryHidden.
For å skjule et ark, slik at ingen kan skjule det uten å vite passordet for Vb -prosjektet, bare skjul filen enten ved å bruke VBA -kode eller endre den synlige egenskapen til arket til 2 dvs. xlsheetveryhidden og lås Vb -prosjektet sammen med passordet.
For å beskytte Vb Project med passord, høyreklikk på Microsoft Excel Object> Select VBAProject Properties …> VBAProject Properties dialog dialog box will appear.
Gå til kategorien Beskyttelse> i dialogboksen Egenskaper for VBAProsjekter> merk av i boksen for låsing av prosjektet> tilord passordet for prosjektet. Passordet vi tilordner for den vedlagte filen er "registrer". Man kan tilordne et hvilket som helst passord for prosjektet.
"Dataark" -knappen brukes til både å skjule og skjule arket. "Dataark" -knappen er tilordnet "ToggleHidingDataSheet" -makro. Når brukeren klikker på knappen og hvis filen er skjult, blir arket synlig, og hvis arket er synlig, er arket skjult.
Ark kan gjøres synlig enten ved å klikke "Dataark" -knappen eller ved å endre den synlige egenskapen tilbake til 0 dvs. xlSheetNormal ved å bruke passordet for VBProject.
Følg koden nedenfor
Sub SubmitingDetail () Dim LastRow As Long 'Finding the Last row in the "Data" sheet' where data needs to insert LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell) .Row + 1 'Sette inn data i "Data" -ark med ark ("Data")' Tilordne serienummer .Range ("A" & LastRow) = LastRow - 1 'Sette inn data i "Data" -ark fra område F15 til J15 .Range ("B "& LastRow &": F "& LastRow) = Område (" F15: J15 "). Verdien avsluttes med 'Sletting av celleinnholdet i området (' F15: J15 '). Velg Selection.ClearContents Range (" F15 " Velg End Sub Sub ToggleHidingDataSheet () 'Kontrollerer om arket for øyeblikket er skjult Hvis Sheets ("Data"). Visible = xlVeryHidden Deretter "Kode for å gjøre arket synlig Sheets (" Data "). Visible = True Else" Kode for skjuling arket Ark ("Data"). Synlig = xlVeryHidden End If End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post