Keresés

Új hozzászólás Aktív témák

  • Sprite75

    tag

    válasz jackal79 #44962 üzenetére

    Próbéltam ilyet keresni de nem találtam. A lap elrejtős/felfedős dolog is jó lehetne szerintem neked, ha azt meg lehetne úgy csinálni makróval, hogy ha fel akarod fedni az elrejtett lapokat akkor kérjen jelszót.

    Amit most kipróbáltam hogy pl a Munka2 lapot elrejteni és felfedni makróval, jelszóval védve a füzetvédelem segítségével, csak ezzel az a baj hogy a makrót bárki tudja használni aki megnyitja a táblázatot :)

    Sub lezár() ' A Munka2 lapot elrejti és zárja le jelszóval
        Sheets("Munka2").Select
        ActiveWindow.SelectedSheets.Visible = False
        Sheets("Munka1").Select
        ActiveWorkbook.Protect 1, Structure:=True, Windows:=False ' Az 1 a jelszó
    End Sub
    Sub kinyit() ' A Munka2 lapot felfedi
        ActiveWorkbook.Unprotect 1 ' Az 1 a jelszó
        Sheets("Munka1").Select
        Sheets("Munka2").Visible = True
    End Sub

Új hozzászólás Aktív témák