I denne artikel vil vi oprette en makro til at skjule Excel -arket. Excel -ark gøres skjult ved at ændre dets egenskaber ved hjælp af VBA -kode. Skjult Excel -ark kan ikke gøres synligt ved at bruge knappen til at skjule i Excel -applikationen.
I dette eksempel har vi oprettet en gate -registreringsformular.
Når brugeren indtaster detaljerne i formularen og klikker på knappen Send, gemmes detaljer i "Data" -arket. Knappen "Send" er tildelt makro "SubmittingDetail".
"Datablad" kan gøres skjult eller skjult ved at klikke på knappen "Dataark". Hvis "Data" -arket er skjult, kan det ikke gøres synligt ved at bruge funktionen til at skjule i Excel -ark.
Ark skjult ved hjælp af knappen "Dataark", forbliver synligt i projektudforsker i VBE (Visual Basic Editor), og arkegenskaber for skjult ark er indstillet til xlSheetVeryHidden.
Ark kan også gøres meget skjult uden at bruge VBA -kode. Til det skal vi åbne VBE og indstille den synlige egenskab af ark i vinduet egenskaber til 2 - xlSheetVeryHidden.
For at skjule et ark, så ingen kan skjule det uden at kende adgangskoden til Vb -projektet, skal du blot skjule filen enten ved hjælp af VBA -kode eller ændre arkets synlige egenskab til 2, dvs. xlsheetveryhidden og låse Vb -projektet sammen med adgangskoden.
For at beskytte Vb -projekt med adgangskode skal du højreklikke på Microsoft Excel -objektet> Vælg VBAProject -egenskaber …> VBAProject Properties -dialogboksen vises.
I dialogboksen Egenskaber for VBAProject skal du gå til fanen Beskyttelse> markere afkrydsningsfeltet for at låse projektet> tildele adgangskoden til projektet. Adgangskode, som vi tildeler den vedhæftede fil, er "registrer". Man kan tildele enhver adgangskode til projektet.
Knappen "Dataark" bruges til både at skjule og skjule arket. Knappen "Dataark" er tildelt makroen "ToggleHidingDataSheet". Når brugeren klikker på knappen, og hvis filen er skjult, gøres arket synligt, og hvis arket er synligt, er arket skjult.
Ark kan gøres synligt enten ved at klikke på knappen "Dataark" eller ved at ændre den synlige egenskab tilbage til 0 dvs. xlSheetNormal ved hjælp af adgangskoden til VBProject.
Følg venligst nedenstående for koden
Sub SubmitDetail () Dim LastRow så længe 'Find den sidste række i "Data" -arket', hvor data skal indsættes LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell) .Række + 1 'Indsætning af data i "Data" -ark med ark ("Data")' Tildeling af serienummer .Range ("A" & LastRow) = LastRow - 1 'Indsætning af data i "Data" -ark fra område F15 til J15 .Range ("B "& LastRow &": F "& LastRow) = Range (" F15: J15 "). Værdi slut med 'Sletning af celleindholdet i intervallet Range (' F15: J15 '). Vælg Selection.ClearContents Range (' F15 ' ) .Vælg End Sub Sub ToggleHidingDataSheet () 'Kontrol af, om ark i øjeblikket er skjult, hvis Sheets ("Data"). Visible = xlVeryHidden Herefter' Kode til at gøre arket synligt Sheets ("Data"). Visible = True Else 'Kode til skjul arket Sheets ("Data"). Visible = xlVeryHidden End If End Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet