我的 VBA Excel 宏中的防病毒误报

Question

我刚遇到一个更烦人的问题。突然，Windows Defender 开始将我的一个包含 VBA 宏代码（从浏览器下载）的 excel 文件标记为病毒。正在记录的特定病毒是：

木马：O97M/Foretype.A!ml

谷歌搜索显示以下信息：

O97M.Downloader 是对下载其他威胁的 Microsoft Office 宏的通用检测。它们通常包含在其他 Microsoft Office 文档中，可能通过附件或从网站下载后到达受感染计算机。

太好了，所以一旦 Windows Defender 检测到它，它基本上会将文件粉碎，当您尝试打开它时，excel 声称该文件已“损坏”。我很想将我的 VBA 文件发布到http://www.virustotal.com，但它包含大量无法与更广泛社区共享的专有 VBA 代码。我想知道是否有一个网站可以用不同的条款和条件完成同样的事情？

这只是最近才开始的，并且只影响了少数用户/客户。我不确定安装了这个的客户端的分布以及他们运行的 Windows Defender 的版本。我担心这种影响会增加，直到我们的大量客户受到影响。更麻烦的是，客户通常可以毫无问题地下载一个版本，但是当他们从不同的来源下载文件（相同的 VBA 代码）时，他们遇到了问题，下载来源是否会影响文件被标记的可能性？

主要问题

是什么导致 excel VBA 文件被标记为“O97M”病毒，我该如何防止它被标记？

相关问题

我应该签署我的 VBA 宏，这会影响病毒检测的可能性吗？

它们是我可以更改的其他常见做法，会影响误报的可能性吗？

究竟什么是“Trojan:O97M/Foretype.A!ml”？窗口页面包含的信息太少，它可能不存在，赛门铁克也非常无用，（也许我在这里非常不了解）是否有用于病毒检测的集中存储库？我想人们可能不想分享它，而且我的产品因产品而异，但我会对与此相关的任何信息感兴趣......

外部图书馆

我也在使用以下外部代码：

https://gist.github.com/brucemcpherson/3414365/

https://www.thespreadsheetguru.com/the-code-vault/2014/4/23/loop-through-all-excel-files-in-a-given-folder

如何在不关闭调用工作簿的情况下使用 VBA SaveAs？

我也在使用以下窗口函数：

Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Public Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As LongPtr
Public Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPtr
Public Declare PtrSafe Function SetParent Lib "user32.dll" (ByVal hWndChild As LongPtr, ByVal hWndNewParent As LongPtr) As LongPtr
Public Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As LongPtr
Public Declare PtrSafe Function GetDeviceCaps Lib "gdi32.dll" (ByVal hdc As LongPtr, ByVal nIndex As LongPtr) As LongPtr
Public Declare PtrSafe Function GetDC Lib "user32.dll" (ByVal hWnd As LongPtr) As LongPtr
Public Declare PtrSafe Function ReleaseDC Lib "user32.dll" (ByVal hWnd As LongPtr, ByVal hdc As LongPtr) As LongPtr
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare PtrSafe Function SetLastError Lib "kernel32.dll" (ByVal dwErrCode As Long) As Long
Public Declare PtrSafe Function GetActiveWindow Lib "user32.dll" () As Long
Public Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long

Answer 1

我们联系了 Microsoft，他们回复了以下消息（由于某种原因无法以文本形式复制）：

所以我猜这是 JSON VBA 逻辑，我猜它已经解决了（我还没有看到这种情况再次发生），尽管这真的很难说。