lost right-click

  • Thread starter Thread starter shank
  • Start date Start date
S

shank

Lost my right-click in Excel.
Still have it in other programs.
Google hasn't helped so far.
Suggestions?

thanks!
 
Hi,

Do you mean the right click on cells?

Open the VBE editor (alt-F11) or <ctrl>G if you don't see it.

Paste

application.CommandBars("Cell").Reset <enter>

Hope this helps.

Wkr,

JP

Select the immediate window
 
Hi,

Read Open the VBE editor (alt-F11) and select the immediate window or
<ctrl>G if you don't see it.

Wkr,

JP
 
Didn't work... my steps were...
<ALT F11>
IMMEDIATE window was already open
pasted "application.CommandBars("Cell").Reset" (without quotes)
<ENTER>
no joy... rebooted Excel ... still no joy

I have right-click menu/functions in VBE. But not in the worksheet(s)

Anything else I can try?

thanks!
 
Getting closer... Helpful hint: Must enable all macros temporarily before
doing those commands.

I now have right-click menus "in the cells", but when I selected rows I
right-click is disabled. How do I get back all right-click functions?

thanks!
 
Googling, I found this. New Module, paste, run. This gives me the
right-click menu when I select rows. However, when I reboot Excel, I lose
the right-click menu again. How do I keep the right-click menu?

Sub Enable_All_Right_Click_Menus()
'This will enable all BuiltIn Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = True
Next
End Sub

thanks!
 
Hi,

Copy following code in a module

Sub cmb()
Dim cmb
Dim cmbs

cmbs = Application.CommandBars.Count

For cmb = 1 To cmbs
If Application.CommandBars(cmb).BuiltIn = True And
Application.CommandBars(cmb).Enabled = False Then
Debug.Print Application.CommandBars(cmb).Name,
Application.CommandBars(cmb).Enabled
End If
Next cmb

End Sub

Will give you an overview of all commandbars names and enable status.
You can enable by

applications.commandbars(name).enabled=true

Hope this helps.

Wkr,

JP
 
Application.CommandBars("column").Enabled= True

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


Gord Dibben MS Excel MVP
 
Back
Top