Remove all code and modules from the active workbook

Hello,

I am trying to use vba to remove the modules behind the active workbook. I modified code I found from an existing source http://www.cpearson.com. (The full code had additional parts I didn't need so I removed any parts that had nothing to do with stripping the VBA)

Please Login or Register  to view this content.

When stepping through the code, it reaches the following line and I get an error message that says "Object Variable or With block variable not set.":

Please Login or Register  to view this content.

Thank you in advance for your help.

Best,
Matt

I would prefer the programatic approach. Leith, your code works if the project isn't protected. To give you some context. My spreadsheet is a form with a submit button. When the user clicks the submit button, it sends an email to an address through the user's Microsoft Outlook with a time stamped copy of the excel form saved as an attachment. Since the original form is protected, so is the saved copy. The reason I want to remove the code in the saved copy is so that the submit button in the attachment becomes dead. In otherwords, they wont be able to execute the Submit button from the copy.

Long story short, is there was way to modify what you have sent so that it can first unprotect the vba project to be deleted? I am getting a Run-time error message '50289' that says "Can't perform operation since the project is protected".

My sincere apologies if this is not clear.

Below is the code for the main macro. When it opens up a copy of the new excel under a time stamped name. When that workbook is active, I want to remove the macros right before I send it in the email. I execute the code you supplied at that point. The problem that I stated before is that I protect the code in the original workbook so the copied workbook prevents me from deleting the code due to that protection.

Please Login or Register  to view this content.

It is still giving me the same Run time '50289' error. I am prompted for the password as if the send key function cannot get to the part where it passes the password I supplied. I have attached a simplified version of my excel workbook that replicates my problem. It opens up the time stamped excel and tries to remove the module but it gets hung up on the password protection part. You can execute the code using the button in the main sheet of the workbook, just as I would with my own excel form.

I hope this attachment makes it clear what i am trying to do. The password for everything in this book is "pass123".