Page excel impossible a voir

Résolu
Bonjour,

dans mon fichier XLS , j'ai une page que je ne peut pas voir .

Elle est masquée et des éléments sont pris dedans en référence mais je doit les modifier, mais IMPOSSIBLE.

Comment faire ?

1-xlsheetvisible, il m'indique le message d'erreur suivant : Impossible de définir la propriété Visible de la classe Worksheet.

je n'ai pas mis de protection

21 réponses

  1. Bonjour,

    Si c'est le cas mettre le sujet en résolu

    Cordialement
    0
    1. Merci pour tout

      top la réactivité
      0
      1. Bonjour,

        Le problème semble venir de la protection par mot de passe du classeur et nom de l'onglet
        quel est le mot de passe utilisé !

        Feuil 1 et Feuil 2 contiennent des calculs sur plus de 30000 lignes et 3 colonnes et des erreurs de formules, par contre l'onglet Choix barème est vide
        0
        1. TOP

          ça c'est top ; merci pour l'info

          ????
          0
          1. Bonjour

            en attendant que ccm81 envoie le lien

            C'est pas difficile, tu fais un clic droit sur ton fichier / ouvrir avec LibreOffice Calc / désactiver les macros /
            Le fichier va s'ouvrir avec une seule feuille

            clic droit sur la feuille / afficher les feuilles / clic sur la première / Ok et réitère pour les autres feuilles à ouvrir

            Enregistrer sous choisir Excel 2003-365 avec macro

            Cordialement
            0
            1. Zut le lien n'est plus actif ......

              Vous pouvez le remettre ... Merci
              0
              1. Salut ccm81;
                Tu m'a devancé je faisais la même chose quand j'ai vu ta réponse.

                Cordialement
                0
                1. J'ai déjà réussit a peter le MP pour pouvoir modifier la page visible car elle était boquée et on ne pouvait rien modifier ...

                  donc ça doit être possible juste d'afficher une feuille ... mais comment ... la est la question
                  0
                  1. Oui , c'est bien la mon problème !!!! je ne connais pas le MP .

                    et la personne qui a fait le fichier n'est plus la !!!
                    0
                    1. Bonjour,

                      Le classeur entier est protégé avec un M.P.
                      Il te faut le déprotéger pour avoir accès au Feuillet caché.

                      Cordialement
                      0
                      1. Voici le lien

                        J'ai laissé juste l'essentiel pour le calcul

                        une cellule avec la valeur a saisir et une cellule avec le résultat qui prend des info en page cachée.

                        https://www.cjoint.com/c/KHeg0HCeYlD
                        0
                        1. Donc mystère

                          Peux tu envoyer ton fichier, peut être qu'un spécialiste te dépannera ?

                          1) Tu vas dans https://www.cjoint.com/
                          2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
                          3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
                          4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
                          en bleu souligné ; tu le sélectionnes et tu fais "Copier"
                          5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

                          Cdlmnt
                          0
                          1. bonjour , merci pour ton retour

                            > alors , pour la première , la réponse est

                            " erreur 1001 la méthode "visible de l'objet __Worksheet à echoué "

                            il met en jaune la ligne sh.Visible = True

                            > pour la deuxième : il ne s'est rien passé de plus ... et toujours pas de feuille visible.....

                            > pour la troisième , même réponse que pour la première ..
                            0
                            1. Bonjour

                              si ta feuille est masquée et pas protégée, essaies ceci

                              Sub Test()
                              Dim sh As Worksheet
                              For Each sh In Sheets
                                sh.Visible = True
                              Next sh
                              End Sub


                              Cdlmnt
                              0
                              1. si elle est protégée sans mdp
                                Sub TestP()
                                Dim sh As Worksheet
                                For Each sh In Sheets
                                  sh.Unprotect
                                Next sh
                                End Sub


                                si elle est protégée et masquée
                                Sub TestPM()
                                Dim sh As Worksheet
                                For Each sh In Sheets
                                  sh.Unprotect
                                  sh.Visible = True
                                Next sh
                                End Sub    
                                0
                            2. Re,

                              Bon, moi et l'anglais ça fait quatre alors pour le langage VBA on passe. ;-))

                              Je n'avais pas saisi qu'il s'agissait d'un feuillet masqué.
                              Si le fichier n'est pas protégé, clic droit sur l'un des onglets puis afficher, un fenêtre s'ouvre avec tous les feuillets masqués clic sur celui à ouvrir et OK

                              Après je te laisse entre les mains des spécialistes du VBA

                              Cordialement
                              0
                              1. en fait , la page , je ne la voit pas . elle est notée comme Xlsheethidden et je ne peux pas la changer

                                j'ai essayé cà que j'ai trouvé sur le net mais rien ...

                                Sub Test()
                                ActiveWorkbook.Unprotect
                                End Sub
                                0
                                • 1
                                • 2