Message d'erreur lors de la fermeture du fichier

fanfan38

XLDnaute Barbatruc

• 27 Octobre 2018

• #2

Bonjour,
Perso je n'ai pas de message d'erreur...
Par contre je préfère:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In Sheets
If sh.Name <> "Home" Then
sh.Visible = False
End If
Next sh
End Sub

A+ François

 

Vote positif 0 Vote négatif

akni

XLDnaute Nouveau

• 27 Octobre 2018

• #3

Bonsoir,
J'ai toujours le message d'erreur même avec le code au-dessus, aussi quand le clique droit sur la feuille "Masquer / Afficher " sont grisé
et y a pas moyen de les activer j'ai joins les captures d'écran dans le fichier.

Merci pour toute aide, je veux sortir de cet impasse.

Un grand Merci.

 

Pièces jointes

• test.xlsm

  387.2 KB · Affichages: 25

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Octobre 2018

• #4

Bonsoir akni, fanfan38,

C'est le Bon Dieu qui a protégé le classeur ? Béni soit-il :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Home").Select
Unprotect 'ôte la protection du classeur (sans mot de passe)
For Each sh In Sheets
    If sh.Name <> "Home" Then sh.Visible = False
Next sh
Protect 'protège le classeur (sans mot de passe)
End Sub

A+

 

Vote positif 0 Vote négatif

akni

XLDnaute Nouveau

• 27 Octobre 2018

• #5

Bonsoir Job75, Fanfan38,

Merci pour votre réponse,
Maintenant avec le nouveau code je n'ai plus de message d'erreur quand je ferme le fichier,
toutefois mes feuilles sont masqués et je n'arrive pas à les afficher avec le code Nom de Feuille.visible = True
le programme debogue "Impossible de definir la propriété visible de la classe worksheet"
et le menu contextuel du clic droit sur la feuille Home reste toujours grisé.

A+

 

Pièces jointes

• Copie de test.xlsm

  387.4 KB · Affichages: 23

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Octobre 2018

• #6

Bonjour akni, le forum,

J'ai pourtant donné des explications claires !

Je pars en voyage pour une semaine.

Bonne journée.

 

Vote positif 0 Vote négatif

Solution