Verborgen werkbladen weer zichtbaar maken

[Bies]

Hallo, ik heb via VB commando:

Sheets(Array("Totaal Midden IJssel", "Org A", "Org C", "Org D", "Org E", "Org F", _
"Org G", "Org H", "Org I", "Org J", "Org K", "Org L", "Org M", "Org N", "Org O", "Org P" _
, "Ambulant Salland", "Dag IJsselvallei", "Dag Zutphen", "Dag Lochem", _
"Crisisopvang MIJ", "Dag Salland", "Op pad MIJ")).Visible = False

...diverse werkladen verborgen.

Wie weet hoe ik ze weer zichtbaar kan maken (False veranderen in True werkt niet)

Jeroen

 

[Tsarevitsj]

Hoi,

De tegenhanger van "xlSheetHidden" of "xlSheetVeryHidden" is "xlSheetVisible".

In lusje met "If" en "Then" zetten en door het workbook laten rennen.

Succes.

 

[Bies]

Bedoel je...

...dat ik steeds opnieuw het commande moet geven per werkblad dat ik wil verbergen?

Ik heb nl. in totaal 58 werkbladen en hierbij zijn verschillende bladen wel of niet van toepassing. Hievoor wil ik dus knoppen maken.

Ik ben niet goed bekend met xlsheethidden

 

[jpvs]

Misschien een oplossing ?

Kies beeld, aangepaste weergaven, toevoegen en geef bijv. de naam alles.
Verberg nu blad 11 t/m 13 + 16 en 17 via opmaak, blad, verbergen.
Ga naar beeld, aangepaste weergaven, toevoegen en geef een naam, bijv. weergave1.
Doe dit nog een keer waarbij je alleen blad 14 en 15 verbergt.(weergave2)

In het vervolg kun je via aangepaste weergave kiezen of je alles, weergave1 of weergave2 wilt zien.

OF

Sub AllesSheetsWeergeven()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next
End Sub

Pierre

 

[jzeedijk]

Hoi Jeroen,

Bij welk event staat de ....visible=False regel?

False veranderen in True moet als het goed is wel werken, maar dan moet het event of de macro wel gestart worden.

Als het bijvoorbeel in het Event Workbook_Open() staat dan start de code pas als het werkboek geopend wordt.

Zet in het zichtbare sheet in de programmaeditor (Alt &F11) de volgende code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.address="$E$1" then
Sheets(Array("Totaal Midden IJssel", "Org A", "Org C", "Org D", "Org E", "Org F", _
"Org G", "Org H", "Org I", "Org J", "Org K", "Org L", "Org M", "Org N", "Org O", "Org P" _
, "Ambulant Salland", "Dag IJsselvallei", "Dag Zutphen", "Dag Lochem", _
"Crisisopvang MIJ", "Dag Salland", "Op pad MIJ")).Visible = True
End if
End Sub

Als het goed is worden de sheets zichtbaar zodra je met de cursor in E1 gaat staan.

Jeroen