Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Controls _
("Tools").Controls("Options...").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Controls _
("Tools").Controls("Options...").Enabled = True
End Sub