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

• Sprite75 tag

  #44965

  #44962 jackal79

  2020-09-26 09:25:46

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Sprite75

  tag

  #44962 jackal79

  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