Dim VBComp As VBIDE.VBProject


For Each VBComp In ActiveWorkbook.VBProject.VBComponents

Hi Guys,

I got this code on this google group. and it work in my computer at
home
im using excel 2007. but here in the office im using excel 2003 and it
doesnt work.
im getting this " Activeworkbook.VBProject...=<Method'VbProject" of
object'_Workbook'failed.
Can anyone help me get through with this. Thanks much.

Jeff


With VBComp
Select Case .Type
Case vbext_ct_Document

If .CodeModule < "Sheet1" And .CodeModule <
"Sheet2" Then

With .CodeModule
.DeleteLines StartLine:=1,
count:=.CountOfLines
End With


End If

Case Else
ActiveWorkbook.VBProject.VBComponents.Remove
VBComp
End Select
End With
Next VBComp

On Apr 27, 7:49*am, Jeffrey wrote:

Hi Guys,

I got this code on this google group. and it work in my computer at
home
im using excel 2007. but here in the office im using excel 2003 and it
doesnt work.
im getting this " Activeworkbook.VBProject...=<Method'VbProject" of
object'_Workbook'failed.
Can anyone help me get through with this. *Thanks much.

Tidying up... : )

Jeff
Dim VBComp As VBIDE.VBProject

For Each VBComp In ActiveWorkbook.VBProject.VBComponents

* * * * With VBComp
* * * * * * Select Case .Type
* * * * * * * * Case vbext_ct_Document

* * * * * * * * * *If .CodeModule < "Sheet1" And .CodeModule <
"Sheet2" Then

* * * * * * * * * * * * With .CodeModule
* * * * * * * * * * * * * * .DeleteLines StartLine:=1,
count:=.CountOfLines
* * * * * * * * * * * * End With

* * * * * * * * * * *End If

* * * * * * * * Case Else
* * * * * * * * * * ActiveWorkbook.VBProject.VBComponents.Remove
VBComp
* * * * * * End Select
* * * * End With
* * Next VBComp

There is a security setting that can stop code from accessing code.

In xl2003 menus:
Tools|macro|security|trusted publishers tab|check "trust access to visual basic
project"

Since this is a security setting, it's a manual change for every user.

It doesn't follow the workbook and you can't change it in code.

Jeffrey wrote:

Dim VBComp As VBIDE.VBProject

For Each VBComp In ActiveWorkbook.VBProject.VBComponents

Hi Guys,

I got this code on this google group. and it work in my computer at
home
im using excel 2007. but here in the office im using excel 2003 and it
doesnt work.
im getting this " Activeworkbook.VBProject...=<Method'VbProject" of
object'_Workbook'failed.
Can anyone help me get through with this. Thanks much.

Jeff

With VBComp
Select Case .Type
Case vbext_ct_Document

If .CodeModule < "Sheet1" And .CodeModule <
"Sheet2" Then

With .CodeModule
.DeleteLines StartLine:=1,
count:=.CountOfLines
End With

End If

Case Else
ActiveWorkbook.VBProject.VBComponents.Remove
VBComp
End Select
End With
Next VBComp

--

Dave Peterson

On Apr 27, 9:37*am, Dave Peterson wrote:
There is a security setting that can stop code from accessing code.

In xl2003 menus:
Tools|macro|security|trusted publishers tab|check "trust access to visual basic
project"

Since this is a security setting, it's a manual change for every user.

It doesn't follow the workbook and you can't change it in code.





Jeffrey wrote:

Dim VBComp As VBIDE.VBProject

* * For Each VBComp In ActiveWorkbook.VBProject.VBComponents

Hi Guys,

I got this code on this google group. and it work in my computer at
home
im using excel 2007. but here in the office im using excel 2003 and it
doesnt work.
im getting this " Activeworkbook.VBProject...=<Method'VbProject" of
object'_Workbook'failed.
Can anyone help me get through with this. *Thanks much.

Jeff

* * * * With VBComp
* * * * * * Select Case .Type
* * * * * * * * Case vbext_ct_Document

* * * * * * * * * *If .CodeModule < "Sheet1" And .CodeModule <
"Sheet2" Then

* * * * * * * * * * * * With .CodeModule
* * * * * * * * * * * * * * .DeleteLines StartLine:=1,
count:=.CountOfLines
* * * * * * * * * * * * End With

* * * * * * * * * * *End If

* * * * * * * * Case Else
* * * * * * * * * * ActiveWorkbook.VBProject.VBComponents.Remove
VBComp
* * * * * * End Select
* * * * End With
* * Next VBComp

--

Dave Peterson- Hide quoted text -

- Show quoted text -

Brilliant!!! Thank a lot mate. It is now working.