I den här artikeln kommer vi att skapa ett makro för att dölja Excel -arket. Excel -arket görs dolt genom att ändra dess egenskaper med hjälp av VBA -kod. Dold Excel -blad kan inte synliggöras med hjälp av knappen för att dölja i Excel -programmet.
I det här exemplet har vi skapat ett registreringsformulär för gate.
När användaren anger uppgifterna i formuläret och klickar på skicka -knappen, sparas detaljerna i "Data" -arket. "Skicka" -knappen är tilldelat makroet "SubmittingDetail".
"Datablad" kan döljas eller döljas genom att klicka på "Datablad" -knappen. Om "Data" -arket är dolt kan det inte göras synligt med hjälp av alternativet för att dölja tillgängligt i Excel -arket.
Ark dolt med hjälp av "Datablad" -knappen, förblir synligt i projektutforskaren i VBE (Visual Basic Editor) och Arkegenskaper för dolt ark är inställt på xlSheetVeryHidden.
Ark kan också göras väldigt dolt utan att använda VBA -kod. För det måste vi öppna VBE och ställa in den synliga egenskapen för arket i egenskapsfönstret till 2 - xlSheetVeryHidden.
För att dölja ett ark, så att ingen kan dölja det utan att veta lösenordet för Vb -projektet, döljer du bara filen antingen genom att använda VBA -kod eller ändrar den synliga egenskapen för arket till 2, dvs xlsheetveryhidden och låser Vb -projektet tillsammans med lösenordet.
För att skydda Vb -projekt med lösenord, högerklicka på Microsoft Excel -objektet> Välj VBAProjektegenskaper …> VBAProjektegenskaper visas.
I dialogrutan VBAProject Properties går du till fliken Skydd> markerar rutan för att låsa projektet> tilldela lösenordet för projektet. Lösenordet som vi tilldelar den bifogade filen är "register". Man kan tilldela valfritt lösenord för projektet.
Knappen "Datablad" används för att dölja och dölja arket. Knappen "Datablad" tilldelas makroet "ToggleHidingDataSheet". När användaren klickar på knappen och om filen är dold så görs arket synligt och om arket är synligt döljs arket.
Arket kan göras synligt antingen genom att klicka på "Datablad" -knappen eller genom att ändra den synliga egenskapen tillbaka till 0 dvs xlSheetNormal med hjälp av lösenordet för VBProject.
Följ koden nedan
Sub SubmittingDetail () Dim LastRow As Long 'Finding the Last row in the "Data" sheet' where data needs to be LastRow = Sheets ("Data"). Range ("A1"). SpecialCells (xlLastCell) .Row + 1 'Infoga data i "Data" -ark med blad ("Data")' Tilldelning av serienummer .Range ("A" & LastRow) = LastRow - 1 "Infoga data i" Data "-blad från område F15 till J15 .Range (" B "& LastRow &": F "& LastRow) = Range (" F15: J15 "). Värde slutar med 'Radera cellinnehållet i intervallet (' F15: J15 '). Välj Selection.ClearContents Range (' F15 ' ) .Välj End Sub Sub ToggleHidingDataSheet () 'Kontrollerar om arket för närvarande är dolt om Sheets ("Data"). Visible = xlVeryHidden Sedan "Kod för att göra arket synligt Sheets (" Data "). Visible = True Else" Kod för att dölja arket Sheets ("Data"). Visible = xlVeryHidden End If End Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen