Foreign Language Issues with commands

[MPW]

Hey All,

Problem using English VBA commands on systems that use another language. For instance 'Russian or Mandarin'

The following is an example of one of the problems we are encountering.

                       'English         English
Application.CommandBars("[B]Cell[/B]").Controls("[B]Copy[/B]").Enabled = False

I was able to find the ID numbers for the menu items so change the code to this:

'                               Was able to change the Copy command. 
Application.CommandBars("Cell").FindControl(ID:=19).Enabled = False

I found the commandbar ID number for the cell commandbar was 423

My question is what is the command to select the commandbar with it's ID number?

Thanks for the time.

 

[MPW]

Rory, Is this true? I have a screen shot of one of our teams that is having problems with our Script. I would like to upload it for you but am not sure how to do it. Any ideas?

 

[RoryA]

You'd need to load it onto a file hosting site and then post a link here.

 

[MPW]

OK here is the picture. Sorry for the wait.

http://i1347.photobucket.com/albums/p704/mark144/YakutScript_zpsc9519c3e.png[/IMG][/URL]


In other news...
I did have partial success with this on a different board.

The macro runs without errors in 2010 but I could see no effect on the copy command, to enable True of False. I put in some msgboxes to see what was going on.

     Set zb = Application.CommandBars(143)
     MsgBox zb.Name '  "[B]Built-In Menus[/B]"
     Set xb = zb.FindControl(, 30003)
     For Each yb In xb.Controls
          If yb.ID = 19 Then
               yb.Enabled = False
               MsgBox yb.ID  '  "[B]19[/B]"
               MsgBox yb.Enabled '  "[B]False[/B]"
          End If
     Next[COLOR=#333333]
[/COLOR]

Here is the link to the other board if it helps:
http://www.vbforums.com/showthread.p...dbars-in-Excel


This was the closest I have seen to doing what I am after.
See what you think.

 

[RoryA]

What menu are you trying to change? If it's the Cell menu, that code isn't referring to it.

 

[MPW]

I enable and disable several menu items. some are in the cell menu some are in the basic menu tabs. In the picture I believe it is showing the 'Freeze Panes' menu item being disabled. Today I will be sending a macro to him to catalog all of the menus in his Excel so that I can compare it up to mine.

 

[MPW]

There are 2 main commands that I am unsure how to handle using ID numbers.

Application.CommandBars("Window").Controls.Item("Unfreeze Panes").Enabled = False
Application.CommandBars("Format").Controls.Item("Row").Controls.Item("Unhide").Enabled = False

Any help with these would be great.
Thanks

 

[MPW]

Ok, so I found the FreezePanes command.

Application.CommandBars("Window").FindControl(ID:=443).Enabled = False

Just need one more.

Application.CommandBars("Format").Controls.Item("Row").Controls.Item("Unhide").Enabled = False

 

[RoryA]

You could just use a loop to disable all controls with the required id:

for each ctl in Application.CommandBars.findControls(id:=884)
    ctl.enabled = false
 next ctl

 

[MPW]

That disabled 3 commands.
1. Format>Row>UnHide
2. Right Click> Row Menu> UnHide

Do you know what the 3rd one is?

In any event I think that this should do the trick. Closure at last! Mawahaha!

Thank you Rory!

 

[RoryA]

There are two Row menus.