Loosing VBA project when opening up Excel 2007

[QuietMan]

This workbook has lost its VBA project, ActiveX controls and any other
programmability-related features.

I get this error whe I attempt to open up an excel 2003 file in excel 2007
does anyone know what could be causing this?

 

[Barb Reinhardt]

Is it possible you've saved the file as an .xlsx?

 

[QuietMan]

I open it up in 2007 and I get the error message...I can save as an xlsx file
but I still will not have access to the VBA project or any of the macros

 

[Barb Reinhardt]

Was the file saved in Excel 2003 or could it have been saved programmatically
in 2007 as a 2003 workbook?

 

[QuietMan]

Looks like the It guy who istalled excel 2007 disabled the VBA component
during instalation...

Is there a way I can activcate it without re-installing?

 

[Bogi]

Hi
Did you got answer to your question? I have same problem!

 

[Mike Middleton]

Bogi -

If VBA was not originally installed, you do not have to reinstall. Instead,
run the setup, and install (add) the VBA component.

- Mike

http://www.MikeMiddleton.com

 

[Bogi]

Thanks

Everything works now perfectly

Bogi -

If VBA was not originally installed, you do not have to reinstall. Instead,
run the setup, and install (add) the VBA component.

- Mike

http://www.MikeMiddleton.com

 

[joel]

I can't find you posting for speeding up the deletion of rows. the bes
way I've hound in the pasdt is to put an "X" in an auxilary column fo
the rows I want to delete. the sort the auxilary column brining th
"X"s to the top of the worksheet. then deleting the rows with the x's.
It is a lot of code, but it runs very quick since it uses optimize
methods in VBA. Here is an example


Sub Macro1()

Range("IV1").Formula = "=if(A1 > 5,X,Y)"

'then copy the formula down the entire column
LastRow = Range("A" & Rows.Count).End(xlUp)
Range("IV1").Copy _
Destination:=Range("IV1:IV" & LastRow)

'Next replace formula in column IV with value
Range("IV1:IV" & LastRow).Copy
Range("IV1:IV" & LastRow).PasteSpecial Paste:=xlPasteValues

'Next sort on Row IV
Rows("1:" & LastRow).Sort _
header:=xlYes, _
key1:=Range("IV1"), _
Order:=xlAscending

'Now all you have to do is delete the X's.'asume these is a header row
Columns("IV").AutoFilter
Columns("IV").AutoFilter Field:=1, Criteria1:="X"
Rows("2:" & LastRow).SpecialCells(Type:=xlCellTypeVisible).Delete
Columns("IV").Delete

End Su