Reactivate VBE tools menu

[Crundy]

Someone at my work caught a macro virus (but they forgot the name of it) and has asked for my assitance. We removed it OK, but it has changed the font colour in the visual basic editor to white (to stop you from viewing the code) and disabled the visual basic editor's tools menu, stopping me from changing it back.

Does anyone know how to resolve this, apart from a complete reinstall of Word?

 

[vbMax]

The following code allows you to re-enable your
VBE Tools menu in Excel - it should work in Word as
well.

1. In the VBE, choose Tools/References...and add
"Microsoft Visual Basic For Applications Extensibility"
library.

2. Insert a class module named VBECmdHandler, with the
following code:

Public WithEvents EvtHandler As VBIDE.CommandBarEvents

Private Sub EvtHandler_Click(ByVal CommandBarControl As _
Object, Handled As Boolean, CancelDefault As Boolean)

On Error Resume Next
Application.Run CommandBarControl.OnAction
Handled = True
CancelDefault = True

End


3. Insert a standard module, with the following code:

Dim MnuEvt As VBECmdHandler
Dim CmdItem As CommandBarControl
Dim EvtHandlers As New Collection

Sub ResetToolsMenu()

While EvtHandlers.Count > 0
EvtHandlers.Remove 1
Wend

With Application.VBE.CommandBars("Menu Bar&quot.Controls("Tools&quot
.Enabled = True
.Reset
End With

End Sub