enable right click

[tommy_gtr]

hello,

I use the following code to hide all command bars in my excel file:
Private Sub Workbook_Open()

Dim oCB As CommandBar
For Each oCB In Application.CommandBars
oCB.Enabled = False 'here to change
Next oCB

mFormulaBar = Application.DisplayFormulaBar
Application.DisplayFormulaBar = False
End Sub

but it also disable a mouse right click.

Can anyone help how to enable right click when other command bars are hide.

thanks a lot

tommy

[Norman Jones]

Hi Tommy,

Try:

Application.CommandBars("Cell").Enabled = True


---
Regards,
Norman


"tommy_gtr" <[email protected]> wrote in
message news:[email protected]...
>
> hello,
>
> I use the following code to hide all command bars in my excel file:
> Private Sub Workbook_Open()
>
> Dim oCB As CommandBar
> For Each oCB In Application.CommandBars
> oCB.Enabled = False 'here to change
> Next oCB
>
> mFormulaBar = Application.DisplayFormulaBar
> Application.DisplayFormulaBar = False
> End Sub
>
> but it also disable a mouse right click.
>
> Can anyone help how to enable right click when other command bars are
> hide.
>
> thanks a lot
>
> tommy
>
>
> --
> tommy_gtr
> ------------------------------------------------------------------------
> tommy_gtr's Profile:
> http://www.excelforum.com/member.php...o&userid=26089
> View this thread: http://www.excelforum.com/showthread...hreadid=492981
>

[tommy_gtr]

great :-)))

it works ...

Thank you


tommy