vba - Right click on sheet-tabs disabled in Excel -

I used this vba code in this workbook module to disable the right click menu in the Excel workbook.

  Private sub workbook_activate (). With the application. Comandbars.FindControl (ID: = 847) .Visible = Fall and End with and SubS and Private Sub Workbook Disactivate () application. Comandbars.Fund Controll (ID: = 847). Visual = End Ending with True End  

Works like a charm.
The problem is, I can not yet access the right click menu on any tab in any workbook. The second part of the code wants to turn it back on, I think? Yet it is not.

Even when I completely remove the code, any workbook, not a new one, is a menu, when I right click on a tab.

Is there a normal vba codenippet that can be "reset"? Or is there a general "all menu enabled" thing?

Revision: This code posted here does not disable the rightclick menu, it removes the "delete" option from that specific menu.

omg

  application. Commands ("ply"). Competent = true  

-.-. After the last edit and BAM, different keywords were started to sing.