StartUp宏病毒清除方法.docVIP

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 StartUp.xls宏病毒清除方法 第一步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls； 第二步：清除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\的Excel11.xls，Excel程序会自建该文件。 第三步：新建C:\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!copEnd 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.VBAProject.VBComponents(Name)????????? book.VBAProject.VBComponents.Remove delComponent????? Next??End Sub