Tässä artikkelissa luomme makron Excel -taulukon piilottamiseksi. Excel -taulukko piilotetaan muuttamalla sen ominaisuuksia VBA -koodilla. Piilotettua Excel -taulukkoa ei voi näyttää näkyvissä käyttämällä Excel -sovelluksen Näytä -painiketta.
Tässä esimerkissä olemme luoneet portin rekisteröintilomakkeen.
Kun käyttäjä syöttää tiedot lomakkeeseen ja napsauttaa Lähetä -painiketta, tiedot tallennetaan Data -taulukkoon. "Lähetä" -painikkeelle on määritetty "SubmissionDetail" -makro.
"Data" -arkki voidaan piilottaa tai piilottaa napsauttamalla "Data sheet" -painiketta. Jos "Data" -arkki on piilotettu, sitä ei voi tehdä näkyviin käyttämällä Excel -taulukossa näkyvää unhide -vaihtoehtoa.
Arkki piilotettu "Data sheet" -painikkeella, näkyy edelleen VBE: n (Visual Basic Editor) projektinhallinnassa ja piilotetun arkin ominaisuuksien asetuksena on xlSheetVeryHidden.
Arkki voidaan myös piilottaa ilman VBA -koodia. Tätä varten meidän on avattava VBE ja asetettava arkin näkyvän ominaisuuden ominaisuusikkunassa arvoon 2 - xlSheetVeryHidden.
Jos haluat piilottaa arkin, jotta kukaan ei voi paljastaa sitä ilman, että hän tietää Vb -projektin salasanan, piilota tiedosto joko käyttämällä VBA -koodia tai vaihda arkin näkyväksi ominaisuudeksi 2 eli xlsheetveryhidden ja lukitse Vb -projekti yhdessä salasanan kanssa.
Suojaa Vb Project salasanalla napsauttamalla hiiren kakkospainikkeella Microsoft Excel -objektia> Valitse VBAProject Properties …> VBAProject Properties -valintaikkuna.
Siirry VBAProjektin ominaisuudet -valintaikkunassa Suojaus -välilehdelle> valitse projektin lukitusruutu> määritä projektin salasana. Salasana, jonka annamme liitetiedostolle, on "register". Projektille voidaan antaa mikä tahansa salasana.
"Data sheet" -painiketta käytetään sekä arkin piilottamiseen että sen paljastamiseen. "Datalehti" -painikkeelle on määritetty "ToggleHidingDataSheet" -makro. Kun käyttäjä napsauttaa painiketta ja jos tiedosto on piilotettu, arkki näkyy ja jos arkki on näkyvissä, arkki on piilotettu.
Arkki voidaan tehdä näkyväksi joko napsauttamalla ”Data sheet” -painiketta tai muuttamalla näkyvän ominaisuuden arvoksi 0 eli xlSheetNormal käyttämällä VBProject -salasanaa.
Seuraa koodia alla
Sub SubendingDetail () Dim LastRow niin kauan 'Viimeisen rivin etsiminen "Data" -arkista ", johon tiedot on lisättävä LastRow = Sheets (" Data "). Alue (" A1 "). SpecialCells (xlLastCell) .Row + 1 'Tietojen lisääminen "Data" -lomakkeeseen Sheets ("Data")' Sarjanumeron määrittäminen .Range ("A" & LastRow) = LastRow - 1 'Tietojen lisääminen "Data" -arkille välillä F15 - J15 .Range ("B "& LastRow &": F "& LastRow) = Alue (" F15: J15 "). Arvo päättyy kohtaan 'Solun sisällön poistaminen alueelta (" F15: J15 "). Valitse Selection.ClearContents Range (" F15 ") ) .Valitse End Sub Sub ToggleHidingDataSheet () 'Tarkista, onko arkki tällä hetkellä piilotettu, jos Sheets ("Data"). Visible = xlVeryHidden Then "Koodi, joka tekee arkin näkyväksi Sheets (" Data "). Visible = True Else" Piilotuskoodi arkki Sheets ("Data"). Visible = xlVeryHidden End Jos End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse