宏病毒清除方法清除宏删除宏病

宏病毒清除清除宏删除宏病 在菜单-工具-宏-visual basic编辑器 打开后看看左边的VBAproject，一个个点击打开看看里面有没有代码 解决办法 1 ALT+F11，进入VBE编辑器，删除AUTO_OPEN模块，保存文件，退出EXCEL 2 进入下面的文件夹，删除里面的文件。 C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART 其中:Administrator为WINDOWS系统登录用户名，根据实际调整 如果某个文件夹不显示，说明文件夹被隐藏。 【工具】-【文件夹选项】，查看，选择里面的“显示和查看所有文件和文件件” 3 重新打开，问题解决 如果其他文件也有类似问题，重复步骤1-3。 中毒了 解决办法 第一步.打开excel，菜单-工具-宏-宏，将宏名对话框里的auto_open模块选中，点击右侧的删除按钮，保存文件，退出EXCEL 如果还出现的话继续第二步操作 第二步进入下面的文件夹，删除里面的文件 C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART 如果该文件夹不显示，说明文件夹被隐藏。 我的电脑-【工具】-【文件夹选项】-【查看】，选择里面的“显示和查看所有文件和文件以及不隐藏已知文件的扩展名”用搜索查找XLSTART文件，将文件里的*.slx文件删除(删除后在按以上步骤把文件隐藏即可) StartUp.xls宏病毒清除方法 第一步:清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls; 第二步:清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\的Excel11.exe(约236K)，Excel程序会自建该文件。 第三步:新建\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART\startup.xls文件，输入以下代码就行了，以后再打开带毒的excel文件就会自动清除excel文件自带的病毒宏代码了 Sub auto_open() On Error Resume Next Application.ScreenUpdating = False ActiveWindow.Visible = False n$ = ActiveWorkbook.Name Workbooks(n$).Close (False) Application.OnSheetActivate = "StartUp.xls!cop" End Sub Sub cop() On Error Resume Next Dim VBC As Object Dim Name As String Dim delComponent As VBComponent Name = "StartUp" For Each book In Workbooks Set delComponent = book.VBProject.VBComponents(Name) book.VBProject.VBComponents.Remove delComponent Next End Sub