skrivanje listov

[rick]

pozdravljeni,

z makrom bi rad skril liste na način:

Sheets(Array("List2", "List3", "List4", "List5", "List6")).Select
ActiveWindow.SelectedSheets.Visible=False

....problem nastane, če kliknem še enkrat na gumb, ko so listi že skriti.
torej kako dopolniti makro, da naj skrije izbrane liste, v kolikor ti še niso skriti, sicer naj
se nič ne zgodi.
Za odgovor se zahvaljujem.
lp

[admin]

Pozdravljeni,

Listov ne skrivajte v skupini, saj boste imeli s tem samo probleme. Preprosto vsak list kontrolirajte posamezno in vse bo ok. Sledečo kodo lahko namreč izvedete 100x zapored in bo vse ok : :

Koda: Izberi vse

  Sheets("list2").Visible = False
  Sheets("list3").Visible = False
  Sheets("list4").Visible = False
  Sheets("list5").Visible = False
  Sheets("list6").Visible = False

[rick]

madonca, tega pa nisem vedel...
najlepša hvala Matjaž