Qui pourrait m'aider à ouvrir ces fichiers EXCEL

  • Initiateur de la discussion Initiateur de la discussion lamjah
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lamjah

Guest
J'ai des fichiers excel que je n'arrivent pas à ouvrir. Lorsque je les ouvre ils se referment automatiquement. Cela est peut-être du à une macro. Si quelqu'un pouvais les désactiver pour moi pour que je puisse accéder au contenu.
Merci d'vance.

Voici le lien de téléchargement des fichiers.
RapidShare: Easy Filehosting
Size: 923 KB
 
Re : Qui pourrait m'aider à ouvrir ces fichiers EXCEL

Allô!

J'ai renommé les fichiers en xls, mis la sécurité des macros à moyen.
À l'ouverture, une boîte de dialogue me demande si je veux exécuter les macros, j'ai répondu "Désactiver les macros".
Le fichier s'est ouvert correctement.

GFortin
 
Re : Qui pourrait m'aider à ouvrir ces fichiers EXCEL

Allô!

J'ai réussi à déverrouiller les feuilles "Macro1" veryhiden avec mot de passe.

J'ai utilisé ExcelKey de Excel Password Recovery | Passware. Il nous donne le mot de passe du classeur (déjà donné plus haut) et le mot de passe de la feuille macro.

J'ai ouvert le classeur > demande du mot de passe > je frappe "Enter" et enfonce CTRL puis pioche sur Pause (break) > si on est suffisamment rapide, on peut interrompre la macro Aut😵pen.

Puis avec la macro :
Sub FindXLMSheets()
Dim x As Object
' Loop through each sheet in the active workbook.
For Each x In ActiveWorkbook.Sheets

' Test to determine if the TypeName of the sheet is "Worksheet."
If TypeName(x) = "Worksheet" Then

' If the sheet has the type Excel 4.0 macro sheet or Excel
' 4.0 international macro sheet, then display its name.
If x.Type = xlExcel4MacroSheet Or _
x.Type = xlExcel4IntlMacroSheet Then
Sheets(x.Name).Unprotect ' ici, on demande le mot de passe de la feuille
For Each Ws In ActiveWorkbook.Sheets
Ws.Visible = xlSheetVisible
Next Ws
End If
End If
Next
End Sub

La feuille "Macro1" est donc maintenant visible pour accéder aux codes.

Il reste l'enregistrement sans perdre la feuille "Macro1". Là, je n'ai pas encore réussi.

Gfortin
.
 
Re : Qui pourrait m'aider à ouvrir ces fichiers EXCEL

Bonjour à tous,

Pour info, pour ouvrir une feuille sans exécuter le code "auto_ouvrir",
il suffit d'ouvrir Excel, menu -> Fichier -> Ouvrir
Puis de rester appuyé sur la touche SHIFT jusqu'à l'ouverture complète

Gfortin9,
pour que la feuille "Macro1" ne soit pas supprimée, il suffit de supprimer le nom "auto_fermer"

Par contre je n'en suis toujours pas revenu, que ce genre de feuille "Macro XL4"
soit invisible de la sorte !?

Il faut ton code, Gfortin9 (merci), pour la faire apparaitre !?

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
Réponses
4
Affichages
5 K
davidoule
D
Z
Réponses
8
Affichages
2 K
zeltron
Z
Z
Réponses
1
Affichages
38 K
galopin01
G
Retour