Faire référence à un fichier pour supprimer des macros...
1 réponse
Christophe B.
Bonjour à tous!!!
Mon problème aujourd'hui (j'en ai pas mal en ce moment :)) est de
supprimer tout le code à l'ouverture d'un fichier si celui ci est différent
de l'original. J'essaie ce code mais ca efface tout tout le temps
(heureusement j'ai eu la brillante idée de créer un backup):
If ThisWorkbook.Name = "Original.xls" Then
GoTo Workbook_Open
Else
Sheet1.Delete
ActiveWorkbook.VBProject.VBComponents.Remove (UserForm1)
ActiveWorkbook.VBProject.VBComponents.Remove (UserForm2)
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christophe B.
En fait, je pense que ce serait mieux comme ca:
Sub Workbook_Open() If ThisWorkbook.Name <> "Original.xls" Then Sheet1.Delete ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents(UserForm1) ActiveWorkbook.VBProject.VBComponents(UserForm2) With ActiveWorkbook.VBProject.VBComponent.("Thisworkbook").CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With End If . . .
Serait-ce mieux???
Merci!!!! A plus!!!
Christophe.B
En fait, je pense que ce serait mieux comme ca:
Sub Workbook_Open()
If ThisWorkbook.Name <> "Original.xls" Then
Sheet1.Delete
ActiveWorkbook.VBProject.VBComponents.Remove
ActiveWorkbook.VBProject.VBComponents(UserForm1)
ActiveWorkbook.VBProject.VBComponents(UserForm2)
With ActiveWorkbook.VBProject.VBComponent.("Thisworkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End If
.
.
.
Sub Workbook_Open() If ThisWorkbook.Name <> "Original.xls" Then Sheet1.Delete ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents(UserForm1) ActiveWorkbook.VBProject.VBComponents(UserForm2) With ActiveWorkbook.VBProject.VBComponent.("Thisworkbook").CodeModule .DeleteLines 1, .CountOfLines .CodePane.Window.Close End With End If . . .
