打开要解决问题的工作表，按Alt+F11打开VB编辑器，在“视图”下选择“工程资源管理器”，打开后双击”ThisWorkbook”,在右边的编辑页面复制下面的代码
Sub HideMacroSheet()
ThisWorkbook.Sheets("macro1").Visible = 1
End Sub                        '（显示隐藏的宏表macro1）
Sub DisplayNames()
    Dim Na As Name
    For Each Na In ThisWorkbook.Names
        Na.Visible = True
    Next
End Sub                            '（显示隐藏的“Auto_Activate”）
然后点击“运行”下面的“运行子过程/用户窗体”，或按F5，弹出宏对话框，选择：“T hisWorkbook. HideMacroSheet”，然后再点“运行”，此时就可以在工作表中看到表Macro1显示出来。然后再点击“运行”下面的“运行子过程/用户窗体”，或按F5，弹出宏对话框，选择：“T hisWorkbook. DisplayNames”，然后再点“运行”，此时就可以在表Macro1的A2看到“Auto_Activate”，点击“名称管理器”(Ctrl+F3)，里面有很多定义的名称，把含有Auto_Activate
的全部删掉就可以了。