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 .