ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Custom Command Bar Erroring out when distributed (https://www.excelbanter.com/excel-programming/353314-custom-command-bar-erroring-out-when-distributed.html)

Bret

Custom Command Bar Erroring out when distributed
 
I've created a custom command menu bar for my Excel VBA app that appears on
right side of screen when application is opened.
It works great when I use it, the problem is when I send it (via Outlook) to
other users in my company it errors out.

Here is the Auto_Open code:
Sub Auto_Open()
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Global").Visible = True
Application.CommandBars("Global").Enabled = True
application.CommandBars("GlobalComp").Position = msoBarRight
End Sub

Here is the error my users are getting:
€œrun time error-2147024809 (80070057)€- cant move focus to the control
because it is invisible, not enabled, or of a type that does not accept the
focus

When I debug the program on their workstation, I actually cant find my
"Global" command bar listed as one of the toolbar selections. Does the custom
command bar only exists on my workstation?

thanks in advance.

Bob Phillips[_6_]

Custom Command Bar Erroring out when distributed
 
Probably. Better to build it dynamically in the workbook.

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Bret" wrote in message
...
I've created a custom command menu bar for my Excel VBA app that appears

on
right side of screen when application is opened.
It works great when I use it, the problem is when I send it (via Outlook)

to
other users in my company it errors out.

Here is the Auto_Open code:
Sub Auto_Open()
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Global").Visible = True
Application.CommandBars("Global").Enabled = True
application.CommandBars("GlobalComp").Position = msoBarRight
End Sub

Here is the error my users are getting:
"run time error-2147024809 (80070057)"- cant move focus to the control
because it is invisible, not enabled, or of a type that does not accept

the
focus

When I debug the program on their workstation, I actually cant find my
"Global" command bar listed as one of the toolbar selections. Does the

custom
command bar only exists on my workstation?

thanks in advance.





All times are GMT +1. The time now is 01:31 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com