Enable Alt+F to access File Menu

[im_kaushal]

Hi All,

While working on a macro I had to made my File menu invisible by Application.CommandBars("File").Visible = False. After completing my task I made my File Menu again vishible by making the same condition True.

However, in the process I have lost my access Key (Alt +F). Now I don't see the underscore below the letter "F" in my File menu nor Alt+F opens my File menu.

How can I bring my "File" menu to be accessed by Alt+F.


Many thanks in advance.

Rgds, Kaushal

 

[Andrew Poulsom]

What is the File CommandBar?

 

[im_kaushal]

What is the File CommandBar?

It was "File" menu from the standard worksheet commandbar


Rgds, Kaushal

 

[RoryA]

Do you mean you used:

Application.CommandBars(1).Controls("File").Visible = True

to reset it since what you posted would not have worked?

 

[Andrew Poulsom]

That's a CommandBarControl. What code did you actually use?

 

[im_kaushal]

I did used the code
Application.CommandBars(1).Controls("File").Visible = False in my workbook open event and than (to make my File menu invisible)

Application.CommandBars(1).Controls("File").Visible = True
in my workbook before close event (to make it visible again)

but in the process i have lost the (_) undescore right below the letter F of "File" which allows it to be accessed by Alt+F..

how can i recover it...

I tried finding any solution for the same on google but got no luck.

Rgds, Kaushal

 

[RoryA]

I can't replicate that behaviour, but you could try:

Application.CommandBars(1).controls("File").reset

 

[im_kaushal]

Thanks alot for your response
Unfortunately the above mentioned solution doesn't work. Even i can't remember what mess i did with my excel. But I have lost my Access Key (Alt+F) for accessing File menu.. I was looking for the help related to the same on google. and i got to know that it has something to do with Tool - Customize- Command Options ..

Rgds, Kaushal

 

[im_kaushal]

And also to add on I was working on citrix environment. May be the reason for such behaviour of excel macro...

 

[RoryA]

Try:

Application.CommandBars(1).controls("File").Caption = "&File"