Macro agissant dans "ThisWorkbook"

[thomas59p]

Bonsoir tout le monde,

Me revoili me revoilà, lol, après présentation de mon projet ( terminé avec votre aide ) on m'a demandé d'apporter du plus !

Pour ce faire j'aimerai savoir s'il est possible à l'aide d'une macro d'agir dans la zone "ThisWorkbook"

J'y ai ce code :

Private Sub Workbook_Open()

For Each CommandBar In Application.CommandBars
             CommandBar.Enabled = False
Next

Application.DisplayFullScreen = True
     
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayFullScreen = False

For Each CommandBar In Application.CommandBars
             CommandBar.Enabled = True
Next

Application.DisplayAlerts = False

End Sub

Ce que j'aimerai y faire, tout simplement, c'est effacer ce code entièrement à l'aide d'une macro ...

Quelqu'un peut m'aider ?

Merci d'avance

Tom.

 

[thomas59p]

*** OK *** Re : Macro agissant dans "ThisWorkbook"

Voici le code :

EffaceCodeThisWbk()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub

++