Alle Werkbladen behalve één verbergen

[angelokonijn]

Ik ben bezig met een excelbestand welke ik alleen kan inzien als de macro's zijn ingeschakeld. Dit doe ik dmv een beginsheet met een button erop om de overige sheets zichtbaar te maken (als macro's niet zijn ingeschakeld doet de button het ook niet en worden de overige sheets niet zichtbaar).

Nu werkt het in principe goed dmv deze formule:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


        If ThisWorkbook.Saved = False Then
        
        Worksheet("Entree").Select
        
        ActiveSheets.Visible = True
        Sheets("Blad2").Visible = False
        Sheets("Blad3").Visible = False
        
        ThisWorkbook.Save
    End If

het probleem is alleen dat als ik een nieuw blad invoeg of het blad hernoem, deze formule niet meer werkt. Is het mogelijk dat alle sheets onzichtbaar worden gemaakt behalve één (in dit geval worksheet "Entree").

Misschien is het mogelijk om deze sheet eerst te activeren en dan ActiveSheets.Visible = True en de rest = False maar ik weet niet of er iets is als "PassiveSheets" of "OtherSheets" of iets dergelijks

 

[HSV]

Dim sh As Variant
    For Each sh In ThisWorkbook.Worksheets
     If sh.Name <> Sheets("Entree").Name Then
      sh.Visible = False
  End If
Next sh

 

[angelokonijn]

Opgelost

Hardstikke bedankt! hij werkt prima