save without code

[Roman Töngi]

Is it possible to save a document without any VBA-code included in that
document?
I should be achieved by VBA-programming.

Regards,
Roman

 

[Bob Phillips]

You would need to remove any code.

See Chip's page at http://www.cpearson.com/excel/vbe.htm

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Fredrik Wahlgren]

Is it possible to save a document without any VBA-code included in that
document?
I should be achieved by VBA-programming.

Regards,
Roman

I guess you have to create new document and copy the contens of the doc with
Vba code to that one. I tried to record deleting a macro only to find that
nothing had been recorded. You're better off if you put your VBA code in an
add-in.
/Fredrik

 

[Tom Ogilvy]

Look at Chip Pearson's page on programming with the VBE. I believe he has
sample code for removing. Of course you would want to run this code from a
different workbook than you are stripping the code out of.

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

 

[Fredrik Wahlgren]

Look at Chip Pearson's page on programming with the VBE. I believe he has
sample code for removing. Of course you would want to run this code from a
different workbook than you are stripping the code out of.

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

How funny. I just found this link when i was researching something else. It
seems as if I was wrong. However, you can't create a self destructing macro.

/Fredrik

 

[Chip Pearson]

However, you can't create a self destructing macro.
Yes you can. Try the following:

Sub SelfDestruct()
'
' some code
'
With
ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines .ProcBodyLine("SelfDestruct",
vbext_pk_Proc), _
.ProcCountLines("SelfDestruct", vbext_pk_Proc)
End With

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Tom Ogilvy]

To Fredrik:

and of course I said: Of course you would want to run this code from a
different workbook than you are stripping the code out of.

 

[Fredrik Wahlgren]

Yes you can. Try the following:

Sub SelfDestruct()
'
' some code
'
With
ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines .ProcBodyLine("SelfDestruct",
vbext_pk_Proc), _
.ProcCountLines("SelfDestruct", vbext_pk_Proc)
End With

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

Cool! I will try this out!
/Fredrik