Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not Working - Help please
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not Working - Help please
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. -- Regards, Tom Ogilvy "Brian" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not Working - Help please
Many thanks Tom, found the missing file, mscal.ocx,
loaded and all working fine. Brian -----Original Message----- 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. -- Regards, Tom Ogilvy "Brian" wrote in message ... 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code not working and can't see why | Excel Discussion (Misc queries) | |||
why this code not working | Excel Programming | |||
why this code not working | Excel Programming | |||
Code not working | Excel Programming | |||
For Each Code Not Working | Excel Programming |