Mission Impossible

Ilino

XLDnaute Barbatruc

• 12 Septembre 2013

• #16

Re : Mission Impossible

ok TOM grazie je vais voir comment faire une mission possibl

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 13 Septembre 2013

• #17

Re : Mission Impossible

Bonsoir Forum
Merci pour notre TOM(Efgé) pour ce code😱
si vous permettez je relance ma demande est il possible de verrouillez ce code Vba.???
Grazie

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Septembre 2013

• #18

Re : Mission Impossible

Bonjour Forum
est ce que mon souci est connaissable et réalisable ?
Merci par avance

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Septembre 2013

• #19

Re : Mission Impossible

Bonsoir Forum
un coup de main if possibile please ??
Thank's

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 14 Septembre 2013

• #20

Re : Mission Impossible

Forum Bonsoir
un help please
A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 15 Septembre 2013

• #21

Re : Mission Impossible

Bonjour FORUM
somebody can help me to resolve my problem?
grazie

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 15 Septembre 2013

• #22

Re : Mission Impossible

Bonjour Ilino

Je pense qu'il n'est pas nécessaire de remonter ton fil trois fois par jour 🙄

Si personne ne répond, c'est peut être que personne ne sais.....

Cordialement

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 15 Septembre 2013

• #23

Re : Mission Impossible

Efgé à dit:

Bonjour Ilino

Je pense qu'il n'est pas nécessaire de remonter ton fil trois fois par jour 🙄

Si personne ne répond, c'est peut être que personne ne sais.....

Cordialement

Cliquez pour agrandir...

Re salut
peut être (c'est le Week end) j'attend le début de semaine peut être il y a un espoirs !!!!!
A+

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 16 Septembre 2013

• #24

Re : Mission Impossible

Bonsoir, salut Efgé,

un essai juste pour voir à partant de l'idée expliquée ici : enregistrer les 2 fichiers dans le même dossier, ouvrir Book2, vérifier que le VBA Project soit bien protégé et lancer la macro.

J'ai utilisé des Senkeys (ce n'est pas ce que je préfère mais bon...).
A+

 

Pièces jointes

• Book1.xlsm

  14.4 KB · Affichages: 45
• Book2.xlsm

  17.7 KB · Affichages: 43
• Book1.xlsm

  14.4 KB · Affichages: 40
• Book2.xlsm

  17.7 KB · Affichages: 41
• Book1.xlsm

  14.4 KB · Affichages: 37
• Book2.xlsm

  17.7 KB · Affichages: 40

Dernière édition: 16 Septembre 2013

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 16 Septembre 2013

• #25

Re : Mission Impossible

Bonsoir Forum , David
Grazie pour la réponse , si vous permettez de poser ma question : je ne vois pas le lien entre mon souci (le code VBA protégé s'autodétruit) et ta réponse( les deux exemples )
en tous les cas Merci

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 16 Septembre 2013

• #26

Re : Mission Impossible

Ilino à dit:

Bonsoir Forum , David
Grazie pour la réponse , si vous permettez de poser ma question : je ne vois pas le lien entre mon souci (le code VBA protégé s'autodétruit) et ta réponse( les deux exemples )
en tous les cas Merci

Cliquez pour agrandir...

Ta demande était : comment déprotéger par macro un fichier dont le projet VBA est protégé.
La solution proposée me semble répondre à ta demande.
Une fois déprotégé, le code proposé par Efgé doit donc pouvoir faire son travail.
A+

 

Vote positif 0 Vote négatif

Y

Yohan

XLDnaute Occasionnel

• 17 Septembre 2013

• #27

Re : Mission Impossible

salut ilin tu veux virer le code de ton fichier excel de la première page ?? si c'est cela je tente cela demain et je te transfert le fichier si cela a marché

 

Vote positif 0 Vote négatif

Y

Yohan

XLDnaute Occasionnel

• 17 Septembre 2013

• #28

Re : Mission Impossible

il y a qu' une seule macro dans ton fichier excel ou cette macro supprime d'autre macro au démarrage ???

 

Dernière édition: 17 Septembre 2013

Vote positif 0 Vote négatif

Y

Yohan

XLDnaute Occasionnel

• 17 Septembre 2013

• #29

Re : Mission Impossible

Private Sub Workbook_Open()
Dim I&
Dim VBC As Object

If Date >= DateSerial(2013, 9, 16) Then
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For I = ThisWorkbook.Sheets.Count - 1 To 1 Step -1
Sheets(I).Delete
Next I
End If
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True 'zzzzz
End Sub


est pour moi le seul code présent dans ton fichier excel c'est celui de Efgé que je salut au passage

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 17 Septembre 2013

• #30

Re : Mission Impossible

Yohan à dit:

il y a qu' une seule macro dans ton fichier excel ou cette macro supprime d'autre macro au démarrage ???

Cliquez pour agrandir...

Bonjour FORUM, Yohan, David,
merci pour les réponse, mon souci est comment supprimer toutes les feuilles de mon classeur après un délais ( date) par un code protégé( le code est déjà proposé par notre ami TOM)
Grazie

 

Vote positif 0 Vote négatif