C
carlos
Guest
Bonjour , je tourne en rond et ne voit sur aucun forum de réponse .
Pourtant une fois je me rappelle que quelqu'un avait traité ce sujet sur ce forum mais je n'arrive pas à le retrouver.
Comment faire pour que cette macro ne s'applique qu'apres avoir éte enregistrée une fois ??????????
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
EffaceCodeThisWbk
End Sub
Sub EffaceCodeThisWbk()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").codemodule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
Pourtant une fois je me rappelle que quelqu'un avait traité ce sujet sur ce forum mais je n'arrive pas à le retrouver.
Comment faire pour que cette macro ne s'applique qu'apres avoir éte enregistrée une fois ??????????
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
EffaceCodeThisWbk
End Sub
Sub EffaceCodeThisWbk()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").codemodule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub