XL 2019 "Unhide" onglets masqués (VBA ?)

[DIREXCEL]

Bonjour,

Je suis dans un fichier Excel dont certains onglets ont semble-t-il été masqués, mais que je ne parviens pas à ré-afficher, même en ôtant la protection de la feuille/du classeur. J'ai essayé de trouver la solution en visualisant le code : les 2 onglets qui posent problème ne peuvent pour une raison qui m'échappe pas être repassés en "visibles" dans le menu déroulant des propriétés. Je n'ai malheureusement aucune connaissance dans l'utilisation de Visual Basic, raison de ma présente sollicitation sur ce forum.

Merci d'avance pour vos pistes !

 

[Cousinhub]

Re-,
Un autre essai?
Ouvrir Excel seul.
Cliquer sur "Fichier/Ouvrir/Parcourir", rechercher le fichier à ouvrir, puis utiliser "Ouvrir et réparer..."

Peut-être?

 

[Nain porte quoi]

Tant qu'on est dans les tentatives (désespérés 😉) vous pouvez essayer d'ouvrir le classeur avec LibreOffice ou OnlyOffice.
Mais je reste persuadé que le classeur est corrompu

 

[fanch55]

Merci ! Essayé, mais pour les 2 onglets en question :

Regarde la pièce jointe 1228865

Une raison fortement supposable, c'est que le classeur est protégé ...
code corrigé à tester :

Sub AfficherToutesLesFeuilles()
    'Name                   Value   Description
    'xlChart                -4109   Chart
    'xlDialogSheet          -4116   Dialog sheet
    'xlExcel4IntlMacroSheet  4      Excel version 4 international macro sheet
    'xlExcel4MacroSheet      3      Excel version 4 macro sheet
    'xlWorksheet            -4167   Worksheet
    
    Dim ws As Worksheet
    With ThisWorkbook
        If .ProtectStructure Or .ProtectWindows Then
            MsgBox "Le classeur est protégé, les feuilles aussi"
        Else
            On Error Resume Next
            For Each ws In .Worksheets
                Debug.Print ws.Name, ws.Type, ws.Visible, ;
                Select Case ws.Type
                    Case xlWorksheet, xlChart: ws.Visible = xlSheetVisible
                End Select
                If Err Then
                    Debug.Print Err.Number & " " & Err.Description
                    Err.Clear
                Else
                    Debug.Print "visible ok"
                End If
            Next ws
        End If
    End With
End Sub

 

[TooFatBoy]

Pas sûr que ça vous aide plus

Effectivement ça n'aide pas plus car ce n'est pas exactement ce que je voulais voir (j'aurais dû être plus précis) : on ne voit pas l'arborescence du projet.

 

[Phil69970]

Bonjour à tous

@DIREXCEL
L'erreur 1004 vient probablement d'une ou plusieurs feuilles protégées
Si tu n'as pas de mot de passe sur tes feuilles ce code fera l'affaire

Sub AfficherToutesLesFeuilles()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    ws.Unprotect
    ws.Visible = xlSheetVisible
Next ws
End Sub

si tu as mis des mots de passe partout alors il faut déjà les connaitre sinon pas de chance .....

Merci de ton retour

 

[TooFatBoy]

Une raison fortement supposable, c'est que le classeur est protégé ...

Effectivement c'est ce à quoi on pense dès le départ, mais il a dit qu'il avait enlevé les protections :

je ne parviens pas à ré-afficher, même en ôtant la protection de la feuille/du classeur.

---

si tu as mis des mots de passe partout alors il faut déjà les connaitre sinon pas de chance .....

Sauf si on a affaire à un crack... 💪

 

[fanch55]

Bonjour à tous

@DIREXCEL
L'erreur 1004 vient probablement d'une ou plusieurs feuilles protégées
Si tu n'as pas de mot de passe sur tes feuilles ce code fera l'affaire

Sub AfficherToutesLesFeuilles()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    ws.Unprotect
    ws.Visible = xlSheetVisible
Next ws
End Sub

si tu as mis des mots de passe partout alors il faut déjà les connaitre sinon pas de chance .....

Merci de ton retour

Salut Phil, apparemment la protection de feuille n'empêche pas l'affichage/masquage, la protection de classeur par contre oui .

 

[sylvanu]

Bonjour,
Si rien ne donne satisfaction, peut être une infime chance d'importer les feuilles dans un autre fichier.
Ca ne prend que quelques secondes, il suffit d'appuyer sur le bouton.

 

[DIREXCEL]

Re-,
Un autre essai?
Ouvrir Excel seul.
Cliquer sur "Fichier/Ouvrir/Parcourir", rechercher le fichier à ouvrir, puis utiliser "Ouvrir et réparer..."
Regarde la pièce jointe 1228867
Peut-être?

Merci, déjà essayé avant de poster sur ce forum, sans succès malheureusement.

 

[DIREXCEL]

Bonjour à tous

@DIREXCEL
L'erreur 1004 vient probablement d'une ou plusieurs feuilles protégées
Si tu n'as pas de mot de passe sur tes feuilles ce code fera l'affaire

Sub AfficherToutesLesFeuilles()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    ws.Unprotect
    ws.Visible = xlSheetVisible
Next ws
End Sub

si tu as mis des mots de passe partout alors il faut déjà les connaitre sinon pas de chance .....

Merci de ton retour

YESSSSS ! ça a fonctionné ! Les 2 onglets sont à nouveau visibles 🙂 Un immense merci à toutes et à tous pour votre aide précieuse et votre pédagogie !

 

[Phil69970]

Bonjour à tous

@DIREXCEL
Super si cela a pu te dépanner même sans fichier, pense à l'avenir de fournir un fichier car c'est beaucoup plus facile pour nous pour t'aider.
Et pourtant tu nous as donné la réponse sans le savoir samedi à 9h58 ...... et je viens de le voir .....à l'instant 🤪

Et après tout s’éclaire .....
Et comme disait Raymond Souplex "Bon sang mais c'est bien sûr" dans les 5 dernières minutes
(Les moins de 20 ans 40 anss ne pourront pas comprendre ma dernière phrase)

Bonne journée à tous

 

[DIREXCEL]

Bonjour à tous

@DIREXCEL
Super si cela a pu te dépanner même sans fichier, pense à l'avenir de fournir un fichier car c'est beaucoup plus facile pour nous pour t'aider.
Et pourtant tu nous as donné la réponse sans le savoir samedi à 9h58 ...... et je viens de le voir .....à l'instant 🤪

Regarde la pièce jointe 1228876
Et après tout s’éclaire .....
Et comme disait Raymond Souplex "Bon sang mais c'est bien sûr" dans les 5 dernières minutes
(Les moins de 20 ans 40 anss ne pourront pas comprendre ma dernière phrase)

Bonne journée à tous

Oui, j'y penserais, même si dans le cas présent il ne m'était pas possible de le fournir, en tout cas pas sans un travail d'anonymisation de certaines données.

A noter qu'avant de tester ta dernière solution, il ne m'était pas possible de modifier cela dans VBA pour les 2 onglets concernés :

 

[TooFatBoy]

Et comme disait Raymond Souplex "Bon sang mais c'est bien sûr" dans les 5 dernières minutes
(Les moins de 20 ans 40 anss ne pourront pas comprendre ma dernière phrase)

J'ai quand même compris... 😄

 

[TooFatBoy]

A noter qu'avant de tester ta dernière solution, il ne m'était pas possible de modifier cela dans VBA pour les 2 onglets concernés

Dans VBA manifestement si puisque ça a fonctionné, mais pas dans "VBE". 😉