中了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
中宏病毒了,如果你没启用的话,可以这样:
删除C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\XLSTART下的StartUp.xls
还有C:\Documents and Settings\administrator\Application Data\Microsoft\Excel\的Excel11.exe
(win7的话在C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\XLSTART下面)
开个空的excel,确定宏默认是禁用的,然后打开你昨天开的那个染毒文件,不要启用内容,按ALT+F11,清除除了你的工作表以外的模块,双击this workbook,清空窗口里的内容,再打开就应该没宏了
是中宏病毒的症状,首先去下载一个宏病毒专杀工具(百度里搜),对全盘进行彻底查杀,查杀完成后再打开,最近宏病毒在我们单位泛滥成灾了,这个方法还是可行的!
你启用了就行了,这是你禁用宏的缘故
把宏的安全性调低一点就可以了,前天也帮一个同事处理过同样的问题!