Code not Working - Help please

B

Brian

I am using code to set up the CommandBars when opening an
application in Excel 2000. It is working fine on my PC,
but when this is opened on another PC also using Excel
2000,via CD or floppy, I get the following error
message "Microsoft Visual Basic - Complie Error - Can't
find project or library"

Can any one please tell me why I am getting this error.

The code I am using is as follows:

Private Sub Workbook_Activate()
Application.CommandBars("MyMenuBar").Visible = True
For Each cbar In Application.CommandBars
If cbar.Name <> "MyMenuBar" Then
cbar.Enabled = False
End If
Next cbar
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("MyMenuBar").Visible = False
For Each cbar In Application.CommandBars
If cbar.Name <> "MyMenuBar" Then
cbar.Enabled = True
End If
Next cbar
End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars("MyMenuBar").Visible = False
For Each cbar In Application.CommandBars
If cbar.Name <> "MyMenuBar" Then
cbar.Enabled = True
End If
Next cbar
End Sub

Private Sub Workbook_Open()
Application.CommandBars("MyMenuBar").Visible = True
For Each cbar In Application.CommandBars
If cbar.Name <> "MyMenuBar" Then
cbar.Enabled = False
End If
Next cbar
End Sub

This code is to close all existing toolbars and open
MyMenuBar only on open or when screen is active, then
when not active or on close it resets to the original
menus and toolbars.

The debugger highlights the Private Sub Workbook_Open()
line first them changes to each other first line of each
procedure.

Any help appreciated, thanks in advance.

Brian
 
T

Tom Ogilvy

after you get it, go to the vbe and look in tools=>references. You should
see one or more references marked MISSING.

That is your problem. That is the library it can't find.
 
B

Brian

Many thanks Tom, found the missing file, mscal.ocx,
loaded and all working fine.

Brian
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top