Vraag : Fout - Methode Zichtbaar van Ontbroken het Aantekenvel van Objecten

In het codefragment hieronder probeer ik om alle bladen behalve geroepen te verbergen „jane_sheet“.  Het probleem is dat het werkboek om met alle die bladen in gebreke is gebleven te openen behalve de Welkome Pagina worden verborgen die als dit wordt bepaald:
Const WelcomePage = „heet“ welkom.
I denkt dat ik de fout krijg omdat het probeert om de Welkome Pagina eerst en dan te verbergen unhide „jane_sheet“ en het niet dat kan doen omdat het verbergen van de Welkome Pagina eerst geen bladen zichtbaar zou verlaten.  Om het even welke ideeën op hoe ik dit kan veranderen?  Dank!

" codeBody "

1: 2: 3: 4: 5: 6:

Case LCase („Jane“) Voor Elke ws in ThisWorkbook.Worksheets Als LCase (ws. Naam) = LCase („jane_sheet“) Dan ws. Zichtbaar = xlSheetVisible Anders ws. Zichtbaar = xlSheetVeryHidden Beëindig als Daarna

Antwoord : Fout - Methode Zichtbaar van Ontbroken het Aantekenvel van Objecten

Geval LCase („Jane“)
Bladen („jane_sheet“). Zichtbaar = xlSheetVisible
Voor Elke ws in ThisWorkbook.Worksheets
Als LCase (ws. Naam) <> LCase („jane_sheet“) toen
ws. Zichtbaar = xlSheetVeryHidden
Beëindig als
Daarna