"compile error in hidden module"

[Developer]

Hello

I wonder if I might ask for some help

I built a very complex VBA spreadsheet for use by BBC Television which
allows their political programmes to be replayed from the Internet while
simultaneously displaying realtime audience approval and disapproval. The
primary audience is polling analysts and MPs.

It can be found at

http://news.bbc.co.uk/1/hi/programmes/the_daily_politics/6069970.stm#download

or

http://www.perceptionpanel.com/clickvision perception panel.zip

Some users have reported a "compile error in hidden module" error message
referencing Sheet 11 of the spreadsheet. I am unable to replicate the error
on any of my systems.

It has been suggested that old versions of Adobe or the presence of Norton
Antivirus might be the cause. Might anyone have any insight into this
problem?

Many thanks

Best

Developer

 

[Stan Brown]

Sat, 14 Jul 2007 11:02:25 +0100 from Developer

Some users have reported a "compile error in hidden module" error message
referencing Sheet 11 of the spreadsheet. I am unable to replicate the error
on any of my systems.

It has been suggested that old versions of Adobe or the presence of Norton
Antivirus might be the cause. Might anyone have any insight into this
problem?

Does your module use any functions that are part of an Excel add-in,
such as NETWORKDAYS or EOMONTH? In that case, you would get an error
when someone uses your module and doesn't have the necessary add-in
installed. Whether it would be that particular message, I don't know.

 

[Developer]

Does your module use any functions that are part of an Excel add-in,
such as NETWORKDAYS or EOMONTH? In that case, you would get an error
when someone uses your module and doesn't have the necessary add-in
installed. Whether it would be that particular message, I don't know.

Thanks for the response.
No Stan it doesn't use any add-ins. It uses an embedded media player object
though

 

[Don Guillett]

http://www.onlinecomputertips.com/office/compile_error.html

 

[NickHK]

I took the liberty of looking at your VBA code, although not stepping
through it in the VBA IDE. See below for some points.

- There is a lot of obsolete code/objects in the file that appear to have
been forgotten about (numerous modules that are not used or have recorded
macro code that probably is obsolete). You could do with a tidy up.

- There are many .Select which are not necessary in the most part for what
you are doing:
Range("B9").Select
ActiveCell.FormulaR1C1 = nocar
(and in this case, you are not setting the FormulaR1C1 property, but the
..Value, although it will not cause an error.)
So use:
Range("B9").Value= nocar

- It would seems that you are trying to reference a bunch of shapes that do
not exist and never exist:
ActiveSheet.Shapes("Button 735").Select
And using On Error resume Next to skip over the errors that are raised. Is
this intention or an over sight?
You also seems to have numerous modules that are not used or have recorded
macro that probably is obsolete.

- Whilst not exactly wrong, much of code like this serve little purpose:
Dim hols As String
hols = Range("FJ7").Value
With Me.CommandButton14
..Caption = hols
End With

and if you named the command button more descriptively, it would help the
clarity:
Me.cmdHolidays.Caption = Range("FJ7").Value

- There are many formulae with errors:
=[ppresults.xls]results'!$BG2621

- You should read up on error handling. What does this mean ?
Dim Mpath As String
On Error Resume Next
Mpath = "http://www.perceptionpanel.com/"
On Error Resume Next
Dim fname As String
On Error Resume Next

- You could simplify your routines Macro7, Macro8 etc by passing parameters
to the routine and looping through each chart. Also meaningful names of
routines make understand the code much easier.

- I get various errors or termination of code, but without accessing the
code in the IDE, hard to give exact answers as to cause. If the above first
and see how things go, although I suspect the cause(s) are more fundemantal
than cosmetic.

NickHK

 

[Developer]

Thank you Nick

I shall work through your comments and see if anything there helps with the
problem.

Some of the programming was fast and dirty adaptations from other
spreadsheets so that accounts for the mess

The buttons existed in a previous version of the software and need to be
taken out - but I don't think that is the problem

I am somewhat self taught in the VBA department as you can tell. I will do a
tidy up and clean up and see if that helps. But my instinct is that this is
being caused by the presence of some outside element such as Norton
anti-virus.

D

I took the liberty of looking at your VBA code, although not stepping
through it in the VBA IDE. See below for some points.

- There is a lot of obsolete code/objects in the file that appear to have
been forgotten about (numerous modules that are not used or have recorded
macro code that probably is obsolete). You could do with a tidy up.

- There are many .Select which are not necessary in the most part for what
you are doing:
Range("B9").Select
ActiveCell.FormulaR1C1 = nocar
(and in this case, you are not setting the FormulaR1C1 property, but the
..Value, although it will not cause an error.)
So use:
Range("B9").Value= nocar

- It would seems that you are trying to reference a bunch of shapes that do
not exist and never exist:
ActiveSheet.Shapes("Button 735").Select
And using On Error resume Next to skip over the errors that are raised. Is
this intention or an over sight?
You also seems to have numerous modules that are not used or have recorded
macro that probably is obsolete.

- Whilst not exactly wrong, much of code like this serve little purpose:
Dim hols As String
hols = Range("FJ7").Value
With Me.CommandButton14
..Caption = hols
End With

and if you named the command button more descriptively, it would help the
clarity:
Me.cmdHolidays.Caption = Range("FJ7").Value

- There are many formulae with errors:
=[ppresults.xls]results'!$BG2621

- You should read up on error handling. What does this mean ?
Dim Mpath As String
On Error Resume Next
Mpath = "http://www.perceptionpanel.com/"
On Error Resume Next
Dim fname As String
On Error Resume Next

- You could simplify your routines Macro7, Macro8 etc by passing parameters
to the routine and looping through each chart. Also meaningful names of
routines make understand the code much easier.

- I get various errors or termination of code, but without accessing the
code in the IDE, hard to give exact answers as to cause. If the above first
and see how things go, although I suspect the cause(s) are more fundemantal
than cosmetic.

NickHK

 

[NickHK]

I cannot create a form with the ActiveMovie control at all on my system.
There is an MS page about this error in Excel:
http://support.microsoft.com/kb/285517

Whilst I did manage to get your xls working somewhat, after hitting the
above error, it consistent failed. I also get an ActiveX activation warning.
I don't use Norton, so can't say.

If you feel inclined to send me an unprotected copy of the WB, I will see
what I can do whilst stepping through. Otherwise it's difficult to advise
much more, as I cannot recreate such a userform.

NickHK

Thank you Nick

I shall work through your comments and see if anything there helps with the
problem.

Some of the programming was fast and dirty adaptations from other
spreadsheets so that accounts for the mess

The buttons existed in a previous version of the software and need to be
taken out - but I don't think that is the problem

I am somewhat self taught in the VBA department as you can tell. I will do a
tidy up and clean up and see if that helps. But my instinct is that this is
being caused by the presence of some outside element such as Norton
anti-virus.

D

I took the liberty of looking at your VBA code, although not stepping
through it in the VBA IDE. See below for some points.

- There is a lot of obsolete code/objects in the file that appear to have
been forgotten about (numerous modules that are not used or have recorded
macro code that probably is obsolete). You could do with a tidy up.

- There are many .Select which are not necessary in the most part for what
you are doing:
Range("B9").Select
ActiveCell.FormulaR1C1 = nocar
(and in this case, you are not setting the FormulaR1C1 property, but the
.Value, although it will not cause an error.)
So use:
Range("B9").Value= nocar

- It would seems that you are trying to reference a bunch of shapes that do
not exist and never exist:
ActiveSheet.Shapes("Button 735").Select
And using On Error resume Next to skip over the errors that are raised. Is
this intention or an over sight?
You also seems to have numerous modules that are not used or have recorded
macro that probably is obsolete.

- Whilst not exactly wrong, much of code like this serve little purpose:
Dim hols As String
hols = Range("FJ7").Value
With Me.CommandButton14
.Caption = hols
End With

and if you named the command button more descriptively, it would help the
clarity:
Me.cmdHolidays.Caption = Range("FJ7").Value

- There are many formulae with errors:
=[ppresults.xls]results'!$BG2621

- You should read up on error handling. What does this mean ?
Dim Mpath As String
On Error Resume Next
Mpath = "http://www.perceptionpanel.com/"
On Error Resume Next
Dim fname As String
On Error Resume Next

- You could simplify your routines Macro7, Macro8 etc by passing parameters
to the routine and looping through each chart. Also meaningful names of
routines make understand the code much easier.

- I get various errors or termination of code, but without accessing the
code in the IDE, hard to give exact answers as to cause. If the above first
and see how things go, although I suspect the cause(s) are more fundemantal
than cosmetic.

NickHK

Hello

I wonder if I might ask for some help

I built a very complex VBA spreadsheet for use by BBC Television which
allows their political programmes to be replayed from the Internet while
simultaneously displaying realtime audience approval and disapproval. The
primary audience is polling analysts and MPs.

It can be found at

http://news.bbc.co.uk/1/hi/programmes/the_daily_politics/6069970.stm#download

or

http://www.perceptionpanel.com/clickvision perception panel.zip

Some users have reported a "compile error in hidden module" error message
referencing Sheet 11 of the spreadsheet. I am unable to replicate the error
on any of my systems.

It has been suggested that old versions of Adobe or the presence of Norton
Antivirus might be the cause. Might anyone have any insight into this
problem?

Many thanks

Best

Developer

 

[Developer]

If you feel inclined to send me an unprotected copy of the WB, I will see
what I can do whilst stepping through. Otherwise it's difficult to advise
much more, as I cannot recreate such a userform.

NickHK

Thanks. Do you have an e-mail address I should use?

 

[Bob Flanagan]

I have seen this error numerous time. It happens primarily on PCs that had
Office pre-installed by the supplier. They typically use a disk image
approach. It doesn't always work.

The solution is todo a repair of office in Add/Remove Programs

If that doesn't work,

Un-install Office
Reboot
Re-install Office.

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

Thank you Nick

I shall work through your comments and see if anything there helps with
the
problem.

Some of the programming was fast and dirty adaptations from other
spreadsheets so that accounts for the mess

The buttons existed in a previous version of the software and need to be
taken out - but I don't think that is the problem

I am somewhat self taught in the VBA department as you can tell. I will do
a
tidy up and clean up and see if that helps. But my instinct is that this
is
being caused by the presence of some outside element such as Norton
anti-virus.

D

I took the liberty of looking at your VBA code, although not stepping
through it in the VBA IDE. See below for some points.

- There is a lot of obsolete code/objects in the file that appear to have
been forgotten about (numerous modules that are not used or have recorded
macro code that probably is obsolete). You could do with a tidy up.

- There are many .Select which are not necessary in the most part for what
you are doing:
Range("B9").Select
ActiveCell.FormulaR1C1 = nocar
(and in this case, you are not setting the FormulaR1C1 property, but the
.Value, although it will not cause an error.)
So use:
Range("B9").Value= nocar

- It would seems that you are trying to reference a bunch of shapes that
do
not exist and never exist:
ActiveSheet.Shapes("Button 735").Select
And using On Error resume Next to skip over the errors that are raised. Is
this intention or an over sight?
You also seems to have numerous modules that are not used or have recorded
macro that probably is obsolete.

- Whilst not exactly wrong, much of code like this serve little purpose:
Dim hols As String
hols = Range("FJ7").Value
With Me.CommandButton14
.Caption = hols
End With

and if you named the command button more descriptively, it would help the
clarity:
Me.cmdHolidays.Caption = Range("FJ7").Value

- There are many formulae with errors:
=[ppresults.xls]results'!$BG2621

- You should read up on error handling. What does this mean ?
Dim Mpath As String
On Error Resume Next
Mpath = "http://www.perceptionpanel.com/"
On Error Resume Next
Dim fname As String
On Error Resume Next

- You could simplify your routines Macro7, Macro8 etc by passing
parameters
to the routine and looping through each chart. Also meaningful names of
routines make understand the code much easier.

- I get various errors or termination of code, but without accessing the
code in the IDE, hard to give exact answers as to cause. If the above
first
and see how things go, although I suspect the cause(s) are more
fundemantal
than cosmetic.

NickHK

Hello

I wonder if I might ask for some help

I built a very complex VBA spreadsheet for use by BBC Television which
allows their political programmes to be replayed from the Internet while
simultaneously displaying realtime audience approval and disapproval. The
primary audience is polling analysts and MPs.

It can be found at

http://news.bbc.co.uk/1/hi/programmes/the_daily_politics/6069970.stm#download

or

http://www.perceptionpanel.com/clickvision perception panel.zip

Some users have reported a "compile error in hidden module" error message
referencing Sheet 11 of the spreadsheet. I am unable to replicate the error
on any of my systems.

It has been suggested that old versions of Adobe or the presence of Norton
Antivirus might be the cause. Might anyone have any insight into this
problem?

Many thanks

Best

Developer

 

[Developer]

I have seen this error numerous time. It happens primarily on PCs that had
Office pre-installed by the supplier. They typically use a disk image
approach. It doesn't always work.

The solution is todo a repair of office in Add/Remove Programs

If that doesn't work,

Un-install Office
Reboot
Re-install Office.

Thanks Bob I shall try that first

 

[Dave Peterson]

Try changing:

Application.DisplayAlerts = wdAlertsNone
And
Application.DisplayAlerts = wdAlertsAll

to
Application.DisplayAlerts = false
And
Application.DisplayAlerts = true

I stopped after finding that error.

 

[Dave Peterson]

Ps. If I had to find the solution, I'd find one of those users who have
trouble. Share a version of the workbook without the project protection.

Then have that user open the file while I watched in person or via Netmeeting
(or equivalent).

I haven't tried this, but it looks like it may be useful if you're not both
running a version of windows that runs netmeeting (it was removed from Vista).

http://showmypc.com/

 

[Developer]

Ps. If I had to find the solution, I'd find one of those users who have
trouble. Share a version of the workbook without the project protection.

Good advice Dave and that's exactly what I've arranged to do. But it would
help to know what I'm looking for when I get to his computer.

 

[Dave Peterson]

Did you try the other suggestions?

Ps. If I had to find the solution, I'd find one of those users who have
trouble. Share a version of the workbook without the project protection.

Good advice Dave and that's exactly what I've arranged to do. But it would
help to know what I'm looking for when I get to his computer.

 

[Developer]

Did you try the other suggestions?

A client has promised me some time on his malfunctioning machine a week
tomorrow. So I want to be good and ready when that happens. Until then all I
can do is prepare and tidy up the workbook.

 

[Dave Peterson]

I would clean up these lines:

Application.DisplayAlerts = wdAlertsNone
And
Application.DisplayAlerts = wdAlertsAll

to
Application.DisplayAlerts = false
And
Application.DisplayAlerts = true

wdAlertsNone and wdAlertsAll look like they're MSWord constants. When I looked
at your code, I didn't see a reference to MSWord.

 

[NickHK]

Office not pre-installed. I have Office 2K and XP installed, but I'm not
inclined to uninstall all to fix this error.

NickHK

I have seen this error numerous time. It happens primarily on PCs that had
Office pre-installed by the supplier. They typically use a disk image
approach. It doesn't always work.

The solution is todo a repair of office in Add/Remove Programs

If that doesn't work,

Un-install Office
Reboot
Re-install Office.

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

Thank you Nick

I shall work through your comments and see if anything there helps with
the
problem.

Some of the programming was fast and dirty adaptations from other
spreadsheets so that accounts for the mess

The buttons existed in a previous version of the software and need to be
taken out - but I don't think that is the problem

I am somewhat self taught in the VBA department as you can tell. I will do
a
tidy up and clean up and see if that helps. But my instinct is that this
is
being caused by the presence of some outside element such as Norton
anti-virus.

D

I took the liberty of looking at your VBA code, although not stepping
through it in the VBA IDE. See below for some points.

- There is a lot of obsolete code/objects in the file that appear to have
been forgotten about (numerous modules that are not used or have recorded
macro code that probably is obsolete). You could do with a tidy up.

- There are many .Select which are not necessary in the most part for what
you are doing:
Range("B9").Select
ActiveCell.FormulaR1C1 = nocar
(and in this case, you are not setting the FormulaR1C1 property, but the
.Value, although it will not cause an error.)
So use:
Range("B9").Value= nocar

- It would seems that you are trying to reference a bunch of shapes that
do
not exist and never exist:
ActiveSheet.Shapes("Button 735").Select
And using On Error resume Next to skip over the errors that are raised. Is
this intention or an over sight?
You also seems to have numerous modules that are not used or have recorded
macro that probably is obsolete.

- Whilst not exactly wrong, much of code like this serve little purpose:
Dim hols As String
hols = Range("FJ7").Value
With Me.CommandButton14
.Caption = hols
End With

and if you named the command button more descriptively, it would help the
clarity:
Me.cmdHolidays.Caption = Range("FJ7").Value

- There are many formulae with errors:
=[ppresults.xls]results'!$BG2621

- You should read up on error handling. What does this mean ?
Dim Mpath As String
On Error Resume Next
Mpath = "http://www.perceptionpanel.com/"
On Error Resume Next
Dim fname As String
On Error Resume Next

- You could simplify your routines Macro7, Macro8 etc by passing
parameters
to the routine and looping through each chart. Also meaningful names of
routines make understand the code much easier.

- I get various errors or termination of code, but without accessing the
code in the IDE, hard to give exact answers as to cause. If the above
first
and see how things go, although I suspect the cause(s) are more
fundemantal
than cosmetic.

NickHK

Hello

I wonder if I might ask for some help

I built a very complex VBA spreadsheet for use by BBC Television which
allows their political programmes to be replayed from the Internet while
simultaneously displaying realtime audience approval and disapproval. The
primary audience is polling analysts and MPs.

It can be found at

http://news.bbc.co.uk/1/hi/programmes/the_daily_politics/6069970.stm#download

or

http://www.perceptionpanel.com/clickvision perception panel.zip

Some users have reported a "compile error in hidden module" error message
referencing Sheet 11 of the spreadsheet. I am unable to replicate the error
on any of my systems.

It has been suggested that old versions of Adobe or the presence of Norton
Antivirus might be the cause. Might anyone have any insight into this
problem?

Many thanks

Best

Developer

 

[NickHK]

Send it to (e-mail address removed)

NickHK