V tomto článku vytvoríme makro na skrytie listu programu Excel. Hárok programu Excel je skrytý zmenou jeho vlastností pomocou kódu VBA. Skrytý hárok programu Excel nemožno zviditeľniť pomocou tlačidla Zobraziť v aplikácii Excel.
V tomto prípade sme vytvorili registračný formulár brány.
Keď používateľ zadá podrobnosti do formulára a klikne na tlačidlo Odoslať, podrobnosti sa uložia do listu „Údaje“. Tlačidlu „Odoslať“ je priradené makro „Odoslanie podrobností“.
Hárok „Údaje“ je možné skryť alebo odkryť kliknutím na tlačidlo „Hárok s údajmi“. Ak je hárok „Údaje“ skrytý, nemožno ho zviditeľniť pomocou možnosti odkrytia dostupnej v hárku programu Excel.
List skrytý pomocou tlačidla „Dátový list“ zostane viditeľný v programe Explorer v programe VBE (Editor jazyka Visual Basic) a vlastnosti listu skrytého listu sú nastavené na xlSheetVeryHidden.
List je možné tiež veľmi skryť bez použitia kódu VBA. Na to musíme otvoriť VBE a nastaviť viditeľnú vlastnosť listu v okne vlastností na 2 - xlSheetVeryHidden.
Ak chcete skryť list, aby ho nikto nemohol odkryť bez znalosti hesla pre projekt Vb, jednoducho skryte súbor buď pomocou kódu VBA, alebo zmeňte viditeľnú vlastnosť listu na 2, tj. Xlsheetveryhidden a uzamknite projekt Vb spolu s heslom.
Na ochranu projektu Vb heslom kliknite pravým tlačidlom myši na objekt Microsoft Excel> Vybrať vlastnosti VBAProject …> Zobrazí sa dialógové okno Vlastnosti VBAProject.
V dialógovom okne Vlastnosti VBAProject prejdite na kartu Ochrana> začiarknite políčko na uzamknutie projektu> zadajte heslo k projektu. Heslo, ktoré priradíme priloženému súboru, je „zaregistrovať“. K projektu je možné priradiť akékoľvek heslo.
Tlačidlo „Dátový list“ sa používa na skrytie aj odkrytie listu. Tlačidlu „Dátový list“ je priradené makro „ToggleHidingDataSheet“. Keď používateľ klikne na tlačidlo a ak je súbor skrytý, hárok sa zviditeľní a ak je hárok viditeľný, hárok sa skryje.
List je možné zviditeľniť buď kliknutím na tlačidlo „Dátový list“, alebo zmenou viditeľnej vlastnosti späť na 0, t. J. XlSheetNormal, pomocou hesla pre projekt VBProject.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Sub SubmittingDetail () Dim LastRow as Long 'Nájdenie posledného riadka v hárku „Údaje“, do ktorého je potrebné vložiť údaje LastRow = Listy („Údaje“). Rozsah („A1“). SpecialCells (xlLastCell). Riadok + 1 „Vkladanie údajov do listu„ Údaje “s tabuľkami („ údaje “) Priradenie sériového čísla. Rozsah („ A “a LastRow) = LastRow - 1 'Vkladanie údajov do listu„ Údaje “z rozsahu F15 až J15. Rozsah („ B "& LastRow &": F "& LastRow) = Rozsah (" F15: J15 "). Hodnota končí na 'Odstránenie obsahu bunky v rozsahu Rozsah (" F15: J15 "). Vyberte Rozsah Selection.ClearContents (" F15 " ). Vyberte End Sub Sub ToggleHidingDataSheet () 'Kontrola, či je hárok aktuálne skrytý, ak hárky („údaje“). Visible = xlVeryHidden Then' Kód na zviditeľnenie hárka („Údaje“). Visible = True Else 'Kód na skrytie hárky („Údaje“). Viditeľné = xlVeryHidden End If End Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku