Question : Erreur - méthode évidente de la feuille de travail d'objet échouée

Dans l'extrait de code ci-dessous j'essaye de cacher toutes les feuilles excepté celle appelée le « jane_sheet ».  Le problème est que le cahier de travail est transféré pour s'ouvrir avec toutes les feuilles cachées excepté la page d'accueil qui est définie comme ceci :
Const WelcomePage = « bienvenue ». le
I pensent que j'obtiens l'erreur parce qu'elle essaye de cacher la page d'accueil d'abord et puis l'unhide le « jane_sheet » et lui ne peut pas faire qui parce que la dissimulation de la page d'accueil d'abord ne laisserait aucune feuille évidente.  Des idées sur la façon dont je peux changer ceci ?  Merci ! class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

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

>Case " de l'id= " codeSnippet858723 " de

class= de

Réponse : Erreur - méthode évidente de la feuille de travail d'objet échouée

Cas LCase (« jane »)
Feuilles (« jane_sheet »). Évident = xlSheetVisible
Pour le chaque WS dans ThisWorkbook.Worksheets
Si LCase (WS. Nom) <> LCase (« jane_sheet ») puis
le WS. Évident = xlSheetVeryHidden
Finir si
Après