Programatically saving workbook (or worksheet) without the code
 

Hi there,

I have a excel workbook with single sheet and want to
save. The problem is that there are a couple of forms in
workbook_open event. If I use workbook.Saveas method to
save the book, those forms will pop up when I open saved
files. What is the best way to save workbook without
saving the code? Or what is the best way to
programatically delete the code and save? I copied the
book to a new book and save the new book by using
Workbook.SaveAs FileName:= "Name", FileFormat:=
xlExcel4, "", "", "", I also able to save the book without
the code. But the problem is that those forms poped up
twice during copy book and reactive original book since I
need to bring original book back for upcoming process.
Thank you very much in advance for help.

Hugh

Programatically saving workbook (or worksheet) without the code
 

Hi Hugh

If there is no event code in the sheet module you can create a new workbook with the sheet like this

Sub test()
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\ron.xls"
.Close False
End With
End Sub

See also Chip pearson's site
http://www.cpearson.com/excel/vbe.htm

If you want it easy then you can use my SendMail addin and send a copy to yourself
The Add-in have a option to delete the code
http://www.rondebruin.nl/mail/add-in.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Hugh" wrote in message ...
Hi there,

I have a excel workbook with single sheet and want to
save. The problem is that there are a couple of forms in
workbook_open event. If I use workbook.Saveas method to
save the book, those forms will pop up when I open saved
files. What is the best way to save workbook without
saving the code? Or what is the best way to
programatically delete the code and save? I copied the
book to a new book and save the new book by using
Workbook.SaveAs FileName:= "Name", FileFormat:=
xlExcel4, "", "", "", I also able to save the book without
the code. But the problem is that those forms poped up
twice during copy book and reactive original book since I
need to bring original book back for upcoming process.
Thank you very much in advance for help.

Hugh

Programatically saving workbook (or worksheet) without the code
 

Hi Hugh

With your SOurce spreadsheet running why dont you use the macro recorder to
create a new workbook then copy the sheet from your Source book to the new
book, then save the new book with any name you choose. That would be a
start and avoids all the form and code issues you describe. You can then
tidy up the code and maybe place in the workbook code as a close event.

Hope this helps

"Hugh" wrote in message
...
Hi there,

I have a excel workbook with single sheet and want to
save. The problem is that there are a couple of forms in
workbook_open event. If I use workbook.Saveas method to
save the book, those forms will pop up when I open saved
files. What is the best way to save workbook without
saving the code? Or what is the best way to
programatically delete the code and save? I copied the
book to a new book and save the new book by using
Workbook.SaveAs FileName:= "Name", FileFormat:=
xlExcel4, "", "", "", I also able to save the book without
the code. But the problem is that those forms poped up
twice during copy book and reactive original book since I
need to bring original book back for upcoming process.
Thank you very much in advance for help.

Hugh

Programatically saving workbook (or worksheet) without the code
 

Hi Ron,

Thank you very much for your help. As a matter of fact, I
did the same. However, the menue bar group in the
workbook was gone. The group was added onto standard menu
bar. I will also read the website that you provided.

Hugh

-----Original Message-----
Hi Hugh

If there is no event code in the sheet module you can
create a new workbook with the sheet like this

Sub test()
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "C:\ron.xls"
.Close False
End With
End Sub

See also Chip pearson's site
http://www.cpearson.com/excel/vbe.htm

If you want it easy then you can use my SendMail addin
and send a copy to yourself
The Add-in have a option to delete the code
http://www.rondebruin.nl/mail/add-in.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Hugh" wrote in message
...
Hi there,

I have a excel workbook with single sheet and want to
save. The problem is that there are a couple of forms in
workbook_open event. If I use workbook.Saveas method to
save the book, those forms will pop up when I open saved
files. What is the best way to save workbook without
saving the code? Or what is the best way to
programatically delete the code and save? I copied the
book to a new book and save the new book by using
Workbook.SaveAs FileName:= "Name", FileFormat:=
xlExcel4, "", "", "", I also able to save the book
without
the code. But the problem is that those forms poped up
twice during copy book and reactive original book since
I
need to bring original book back for upcoming process.
Thank you very much in advance for help.

Hugh


.

Programatically saving workbook (or worksheet) without the code
 

Hi N10,

Thank you very much for your help. Yes, I did the same as
what you suggested. However, added menu-bar group in
source book was gone after saving. I have no idea how it
happened.

Hugh

-----Original Message-----
Hi Hugh

With your SOurce spreadsheet running why dont you use the
macro recorder to
create a new workbook then copy the sheet from your
Source book to the new
book, then save the new book with any name you choose.
That would be a
start and avoids all the form and code issues you
describe. You can then
tidy up the code and maybe place in the workbook code as
a close event.

Hope this helps

"Hugh" wrote in message
...
Hi there,

I have a excel workbook with single sheet and want to
save. The problem is that there are a couple of forms in
workbook_open event. If I use workbook.Saveas method to
save the book, those forms will pop up when I open saved
files. What is the best way to save workbook without
saving the code? Or what is the best way to
programatically delete the code and save? I copied the
book to a new book and save the new book by using
Workbook.SaveAs FileName:= "Name", FileFormat:=
xlExcel4, "", "", "", I also able to save the book
without
the code. But the problem is that those forms poped up
twice during copy book and reactive original book since
I
need to bring original book back for upcoming process.
Thank you very much in advance for help.

Hugh


.