For security reasons (unwanted use of self made program)
I want to delete a selfmade Userform(FrmEsti) and a Module
in a pasword protected VBAProject named (Est.xls), first I
have allready removed some sheets as follows :

Sheets(Array("Text", "Data")).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
Application.DisplayAlerts = True
ActiveWorkbook.Close

Can I do a simular thing with a complete VBAproject
or only the Forms and/or Modules before saving the
file ??? Many thanks for a not to complicated solution...
I'm only a homemade programmer. Kind regards, pat

Pat,

This is how to delete a userform module

Dim VBComp As Object
Set VBComp = ThisWorkbook.VBProject.VBComponents("Userform1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp

--

HTH

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


"pat (belgium)" wrote in message
...
For security reasons (unwanted use of self made program)
I want to delete a selfmade Userform(FrmEsti) and a Module
in a pasword protected VBAProject named (Est.xls), first I
have allready removed some sheets as follows :

Sheets(Array("Text", "Data")).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
Application.DisplayAlerts = True
ActiveWorkbook.Close

Can I do a simular thing with a complete VBAproject
or only the Forms and/or Modules before saving the
file ??? Many thanks for a not to complicated solution...
I'm only a homemade programmer. Kind regards, pat

-----Original Message-----
Pat,

This is how to delete a userform module

Dim VBComp As Object
Set VBComp = ThisWorkbook.VBProject.VBComponents
("Userform1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp

--

HTH


Many thanks, your tip works super... :-)
RP
(remove nothere from the email address if mailing direct)


"pat (belgium)"
wrote in message
...
For security reasons (unwanted use of self made program)
I want to delete a selfmade Userform(FrmEsti) and a
Module
in a pasword protected VBAProject named (Est.xls),
first I
have allready removed some sheets as follows :

Sheets(Array("Text", "Data")).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
Application.DisplayAlerts = True
ActiveWorkbook.Close

Can I do a simular thing with a complete VBAproject
or only the Forms and/or Modules before saving the
file ??? Many thanks for a not to complicated
solution...
I'm only a homemade programmer. Kind regards, pat


.