Erreur de compilation dans le module caché

[Usine à gaz]

Bonjour à toutes et à tous,

Dernièrement, j'ai téléchargé un classeur excel qui m'intéressait.
C'est un classeur auto destructible téléchargé sur le forum.

Malheureusement, depuis que j'ai testé ce classeur, j'ai un souci à l'ouverture de mes classeurs mes macros ne sont plus activées.

Voici le message affiché :
J'ai beau chercher ..... pas moyen de trouver.
Pourriez-vous m'aider ?
Je vous joins également le classeur "autodestruction" ... je le trouve super mais hyper dangereux LOl

Avec mes remerciements, je vous souhaite un bon dimanche.
Amicalement,
Lionel,

 

[gilbert_RGI]

Re : Erreur de compilation dans le module caché

Bonjour,

si cela peut vous aider voilà les codes de ce fichier ;-)))

'Option Explicit
'
'Private Sub Workbook_Open()
'    MsgBox ("ceci est un message qui ne laisse pas de trace")
'    Call Suicide2
'End Sub


'Option Explicit
'
'Sub Suicide1()
'   Dim objNB As Object
'    Set objNB = Workbooks.Add
'    With ThisWorkbook
'        Open .Path & "\xx.bas" For Output As #1
'        Print #1, "Sub Temp"
'        Print #1, "Workbooks(" & """" & .Name & """" & ").Close False"
'        Print #1, "Kill " & """" & .Path & "\" & .Name & """"
'        Print #1, "Kill " & """" & .Path & "\xx.bas" & """"
'        Print #1, "ThisWorkbook.Close False"
'        Print #1, "End Sub"
'        Close #1
'    objNB.VBProject.VBComponents.Import Filename:=.Path & "\xx.bas"
'    End With
'    Application.OnTime Now(), objNB.Name & "!Temp"
'End Sub
'
'Sub Suicide2()
'    With ThisWorkbook
'        .Save
'        .ChangeFileAccess Mode:=xlReadOnly
'        Kill .FullName
'        .Close SaveChanges:=False
'    End With
'End Sub
'

Workbook.ChangeFileAccess, méthode

Cette méthode modifie les autorisations d'accès au classeur ce qui peut impliquer la nécessité de charger, à partir du disque, une version mise à jour.

à ne pas mettre entre toutes les mains

 

[Usine à gaz]

Re : Erreur de compilation dans le module caché

Bonjour Gilbert,

Merci de m'avoir répondu et pour le code.
En effet, grâce au code, j'ai pu faire quelques recherches mais je n'ai pas trouvé.

Le message de microsoft dit qu'il y a un "bidule" dans un module caché.
J'ai cherché aussi sur le net et un peu partout : comment afficher un module caché ..... je n'ai pas trouvé.
Sauriez-vous comment on peut afficher un module caché ?

Encore merci,
Amicalement,
Lionel,

 

[gilbert_RGI]

Re : Erreur de compilation dans le module caché

ça pourrait être la procédure que construit la macro dans xx.bas ??

je ne sais pas

 

[Usine à gaz]

Re : Erreur de compilation dans le module caché

Encore merci de tenter de m'aider mais je ne vois pas ce que vous dire par : xx.bas
Je suis nul LOl

 

[gilbert_RGI]

Re : Erreur de compilation dans le module caché

quand on exporte un module en général il possède l'extension .bas

maintenant je ne sais pas si c'est ça qui donne l'erreur.
après l’exécution de cette macro

 

[Usine à gaz]

Re : Erreur de compilation dans le module caché

Re,

Alors là ..... miracle .... les voies informatiques sont comme celles du Seigneur ... impénétrables (contrairement à certaines femmes que je connais LOL).

ça vient de disparaître sans que je comprenne pourquoi ????
Espérons que ça va durer LOL.

Merci d'avoir été là
Amicalement,
Lionel,