Impossible de définir la propriété Visible de la classe Worksheet

Question

Ci joint capture d'écran du problème , besoin de votre aide Merci...

Optimix · Accepted Answer

Quelques petits problèmes dans ce classeur :

Problèmes d'ordre général ne répondant pas à ta question :

- indente ton code, sa structure sera plus lisible pour toi et surtout pour les autres
- dans :

If OptionButton3.Value = True Then
MsgBox "Merci de choisir ""Partie Partiel"" et ou ""Partie Totale"""
ActiveWorkbook.Protect Structure:=True, Windows:=True
ElseIf

Ajoute un Exit Sub avant ElseIf sinon on passe au travers et ne demande pas une confirmation du choix fait par l'utilisateur : la boîte de dialogue doit disparaitre dès qu'on a choisi l'option 1 ou 2.

Problèmes répondant à ta question :

J'en ai trouvé deux de taille :
1 - Tu veux masquer des feuilles qui le sont déjà : normal si ça plante. J'ai mis ces 5 lignes en remarque pour passer à la suite

Sheets(".").Visible = xlVeryHidden
Sheets("Base_Epave").Visible = xlVeryHidden
Sheets("Modèle_Epave").Visible = xlVeryHidden
Sheets("Feuil2").Visible = xlVeryHidden
Sheets("reseaux commandement").Visible = xlVeryHidden

2 - Tes feuilles "Base sinistre" et "Modèle sinistre" sont protégées. Je les ai déprotégées (merci pour le mot de passe trouvé dans ton code) et tout est rentré dans l'ordre.

Un conseil si je peux me permettre : la protection et le masquage des feuilles sensibles est à faire à la fin quand tout fonctionne normalement. Ce sont de vrais embûches en phase de développement.

ThauThème · Answer

Bonjour Abdernino, bonjour le forum, Je pense que cela vient du fait que tu as protégé la structure du classeur.....

Optimix · Answer

La propriété de la feuille .EnabledSelection doit probablement être mis à 0 (Norestriction) et la protection de la feuille et du classeur retirée. Tu protègeras à la fin...