add code to workbook by macro

[tony.reynolds]

i need to add a code to the workbook at the end of a macro then when the user runs the next macro it removes it

this is so the workbook cannot be closed and half finish the order number system i have.

i have a cancell button that reverses actions done by the first macro and this will have to remove it as well

how do i insert/reove this code from a workbook with a macro?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "Please finish Order or chose cancel!"
    Cancel = True
End Sub

can someone help?

 

[Trevor G]

Look at this code I have copied it from cpearson.com, it may help you

http://www.cpearson.com/excel/vbe.aspx

Deleting A Procedure From A Module

This code will delete the procedure DeleteThisProc from the Module1. You must specify the procedure type in order to differentiate between Property Get, Property Let, and Property Set procedure, all of which have the same name.


Sub DeleteProcedureFromModule()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim StartLine As Long
Dim NumLines As Long
Dim ProcName As String
Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Module1")
Set CodeMod = VBComp.CodeModule ProcName = "DeleteThisProc"
With CodeMod
StartLine = .ProcStartLine(ProcName, vbext_pk_Proc)
NumLines = .ProcCountLines(ProcName, vbext_pk_Proc) .DeleteLines StartLine:=StartLine, Count:=NumLines
End With
End Sub

</PRE>

 

[tony.reynolds]

Thanks, i ended up using some of your ideas and it works awesome now...
Thanks again