V tomto článku vytvoříme makro pro skrytí listu aplikace Excel. List aplikace Excel je skrytý změnou jeho vlastností pomocí kódu VBA. Skrytý list aplikace Excel nelze zviditelnit pomocí tlačítka Odkrýt v aplikaci Excel.
V tomto případě jsme vytvořili registrační formulář brány.
Když uživatel zadá podrobnosti do formuláře a klikne na tlačítko Odeslat, podrobnosti se uloží do listu „Data“. Tlačítko „Odeslat“ je přiřazeno makru „Odesílání podrobností“.
List „Data“ lze skrýt nebo odkrýt kliknutím na tlačítko „Data sheet“. Pokud je list „Data“ skrytý, nelze jej zviditelnit pomocí možnosti zobrazit v listu aplikace Excel.
List skrytý pomocí tlačítka „Datový list“, zůstane viditelný v Průzkumníku projektů ve VBE (editor jazyka) a vlastnosti listu skrytého listu jsou nastaveny na xlSheetVeryHidden.
List lze také velmi skrýt bez použití kódu VBA. K tomu musíme otevřít VBE a nastavit viditelnou vlastnost listu v okně vlastností na 2 - xlSheetVeryHidden.
Chcete -li skrýt list, aby jej nikdo nemohl zobrazit bez znalosti hesla pro projekt Vb, jednoduše skryjte soubor buď pomocí kódu VBA, nebo změňte viditelnou vlastnost listu na 2, tj. Xlsheetveryhidden a uzamkněte projekt Vb spolu s heslem.
Chcete -li chránit projekt Vb heslem, klikněte pravým tlačítkem na objekt Microsoft Excel> Vybrat vlastnosti VBAProject…> Zobrazí se dialogové okno Vlastnosti VBAProject.
V dialogovém okně Vlastnosti VBAProject přejděte na kartu Ochrana> zaškrtněte políčko pro zamknutí projektu> přiřaďte k projektu heslo. Heslo, které přiřadíme pro připojený soubor, je „zaregistrovat“. K projektu lze přiřadit jakékoli heslo.
Tlačítko „Datový list“ se používá ke skrytí i odkrytí listu. Tlačítko „Datový list“ má přiřazeno makro „ToggleHidingDataSheet“. Když uživatel klikne na tlačítko a pokud je soubor skrytý, pak se list zviditelní a pokud je list viditelný, bude list skrytý.
List lze zviditelnit buď kliknutím na tlačítko „Datový list“, nebo změnou viditelné vlastnosti zpět na 0, tj. XlSheetNormal pomocí hesla pro VBProject.
Pro kód prosím postupujte níže
Sub SubmittingDetail () Dim LastRow As Long 'Finding the Last row in the "Data" sheet' where data needs to be entered LastRow = Sheets ("Data") Range ("A1"). SpecialCells (xlLastCell) .Row + 1 „Vkládání dat do listu„ Data “s listy („ Data “) 'Přiřazení sériového čísla .Range („ A “& LastRow) = LastRow - 1' Vkládání dat do listu„ Data “z rozsahu F15 až J15 .Range („ B "& LastRow &": F "& LastRow) = Rozsah (" F15: J15 "). Hodnota končí na 'Odstranění obsahu buňky v rozsahu Rozsah (" F15: J15 "). Vyberte rozsah Selection.ClearContents (" F15 " ). Vyberte End Sub Sub ToggleHidingDataSheet () 'Kontrola, zda je list aktuálně skrytý If Sheets („Data“). Visible = xlVeryHidden Then' Kód pro zviditelnění listu Listy („Data“). Visible = True Else 'Kód pro skrytí listy („Data“). Visible = xlVeryHidden End If End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail