Rightclicking tabs disabled, won't enable anymore

[Legacy 108787]

I posted this here: http://stackoverflow.com/questions/494926/right-click-on-sheet-tabs-disabled-in-excel
As well.

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

Private Sub Workbook_Activate()
    With Application.CommandBars.FindControl(ID:=847)
        .Visible = False
    End With
End Sub

Private Sub Workbook_Deactivate()
    With Application.CommandBars.FindControl(ID:=847)
        .Visible = True
    End With
End Sub

<code> </code> Works like a charm.
Problem is, I can't access the right click menu on tabs in ANY workbook now. The second part of the code is supposed to turn it back on, I assumed?

Even when I remove the code entirely, no workbook, not even a new one, has a menu when I click right on one of the tabs.

 

[Legacy 108787]

<code>

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

And the code I posted above doesn't disable the entire menu, it disables the "Delete" option in the menu.
</code>