Opgelost Wanneer blad zichtbaar/onzichtbaar WAAR/ONWAAR weergeven

[Marco9999]

Hallo,

Ik heb een werkmap met een voorblad en 5 werkbladen.
Is het mogelijk om op het voorblad te laten zien welke werkbladen zichtbaar of onzichtbaar zijn?

Alvast mijn dank voor het meedenken!

 

[Haije]

In het kader van meedenken:
waarom zijn er bladen verborgen, anders dan dat je niet wilt dat gebruikers die zien?
Door ze dan toch te benoemen schiet je het doel om bladen te verbergen voorbij

 

[Marco9999]

Lang verhaal, maar ik wil een overzicht van welke bladen (on)zichtbaar zijn.

 

[edmoor]

Zoiets dan.
Zorg er wel voor dat in kolom B de namen conform de werkblad namen zijn, dat is in je voorbeeld niet het geval:

 

[AHulpje]

Of zo:

Private Sub Worksheet_Activate()
    Dim r As Integer
    r = 1
    For Each sht In ThisWorkbook.Sheets
        If sht.Name <> "Voorblad" Then
            r = r + 1
            Cells(r, 2) = sht.Name
            Cells(r, 3) = IIf(sht.Visible, "Ja", "Nee")
        End If
    Next
End Sub

 

[Marco9999]

Top, dank jullie wel!

 

[snb]

Ik zou daar geen werkblad mee belasten.