Discussion :

[Kaytilou]

Bonsoir amis du forum
Merci pour vos aide et vos connaissances

Je souhaite masquer toutes les onglets protégés à l'ouverture du fichier sauf 2. J'ai le code suivant que j'ai trouvé grâce à la recherche avancée (merci à vous tous) et j'y ai apporté ma touche, mais cela ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub WorkBook_Open()
 
 
Dim Deb As Worksheet
 
    For Each Deb In ThisWorkbook.Sheets
        Select Case Deb.Name
               Case "Sommaire", "Table des matières"
 
        'Enlever la protection
        ActiveSheet.Unprotect
 
        Case Else
                    Deb.Visible = xlSheetHidden
 
       'Remettre la protection
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
 
        End Select
    Next Deb
 
End Sub

Une idée, une suggestion pour pouvoir cacher des feuilles protégés ?
Merci pour votre aide et bonne soirée

[Patrice740]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub WorkBook_Open()
Dim wsh As Worksheet
  For Each wsh In ThisWorkbook.Worksheets
    Select Case wsh.Name
      Case "Sommaire", "Table des matières"
        wsh.Visible = xlSheetVisible
        wsh.Unprotect
      Case Else
        wsh.Visible = xlSheetHidden
        wsh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End Select
  Next wsh
End Sub

[Kaytilou]

Bonsoir Patrice,
Merci de vous êtes arrêté sur mon cas d'école et merci pour votre code. Je ne sais pas ce qui se passe car cela ne fonctionne pas sur mon fichier. Aucune des feuilles protégés ne se masquent. Elles restent visibles
Faut-il mettre ce code en module ou directement dans une feuille
Merci pour votre aide

[Patrice740]

Ce code va dans le module du classeur (Thisworkbook) et les feuilles ne se masquent qu'à l'ouverture du classeur.

[Kaytilou]

Bonsoir ou Bonjour Patrice
Merci à vous, tout fonctionne parfaitement.
Il faut que j'apprendre à faire la différence entre un module et le module du classeur (Thisworkbook)
Merci à vous

Ce code va dans le module du classeur (Thisworkbook) et les feuilles ne se masquent qu'à l'ouverture du classeur.

[Patrice740]

Bonjour,

Un petit schéma des différents types de modules :

[Kaytilou]

Bonjour Patrice et merci pour ce schéma fort utile et très compréhensible.
Du coup cela me mène à une question, dans mon fichier, s'est créé, je ne sais comment des modules de classeur sans que je ne demande rien et impossible de les supprimer
Les modules sont vides, sans code
Avez vous une idée ? Je vous remercie par avance

[Patrice740]

Bonjour,

Ton fichier est corrompu !

J'ai souvent constaté ça avec des fichier Excel utilisés avec Libre Office ou Open Office.

La solution est de repartir avec un nouveau fichier propre.
Tu peux essayer l'ajouter une feuille à ton fichier corrompu puis sélectionner tous les autres onglets et les déplacer (pas copier) simultanement vers le nouveau fichier.
Puis glisser déplacer les 4 modules standards et copier coller le code de Thisworkbook.

[Kaytilou]

Bonsoir Patrice
Merci, j'ai pu recréer mon fichier comme tu me l'avais préconisé
Bonne soirée