如何通过VBA实现：有人尝试破解打开Excel中VBA代码时发送邮件

答案是理论上可行，但存在不少局限性，只能作为一种简单的威慑手段，无法完全阻止代码被破解。下面详细拆解实现思路、限制和替代方案：

一、实现原理与可行方案 #

VBA工程的密码保护属于弱加密，直接检测"破解行为"很难，但我们可以通过间接方式捕捉异常：当VBA工程被破解后，其保护状态会被移除，因此可以在工作簿打开时检查工程的保护状态，一旦发现未保护就触发邮件警报。

示例代码 #

将以下代码放在ThisWorkbook模块中：

Private Sub Workbook_Open()
    ' 检查VBA工程保护状态
    On Error Resume Next
    Dim vbProj As VBIDE.VBProject
    Set vbProj = ThisWorkbook.VBProject
    
    ' 处理无权限访问VBProject的情况
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "无法检查VBA工程状态，请确保启用了「信任对VBA项目对象模型的访问」权限。"
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 如果工程未被锁定（保护），触发警报邮件
    If vbProj.Protection <> vbext_pp_locked Then
        SendAlertEmail
    End If
End Sub

Private Sub SendAlertEmail()
    Dim olApp As Object
    Dim olMail As Object
    
    ' 尝试启动Outlook
    On Error Resume Next
    Set olApp = CreateObject("Outlook.Application")
    If olApp Is Nothing Then
        MsgBox "无法启动Outlook，无法发送警报邮件。"
        Exit Sub
    End If
    
    ' 创建并发送邮件
    Set olMail = olApp.CreateItem(0)
    With olMail
        .To = "your-alert-email@example.com" ' 替换为你的警报邮箱
        .Subject = "⚠️ VBA工程可能被未经授权访问"
        .Body = "工作簿路径：" & ThisWorkbook.FullName & vbCrLf & vbCrLf & "检测到VBA工程保护已解除，疑似存在破解行为。"
        .Send
    End With
    
    ' 释放对象
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

必要配置 #

• 打开Excel选项 → 信任中心 → 信任中心设置 → 宏设置 → 勾选信任对VBA项目对象模型的访问，否则代码无法读取VBProject的保护状态。
• 用户电脑需安装并配置好Outlook，否则邮件无法发送。

二、关键局限性 #

这种方案的威慑意义远大于实际防护能力，主要限制包括：

• 宏禁用绕过：如果破解者先禁用宏再打开文件，你的检测代码根本不会运行，完全无法触发警报。
• Shift键跳过事件：打开文件时按住Shift键可以跳过Workbook_Open事件，同样会让检测失效。
• VBA保护本身脆弱：市面上有很多工具可以轻松移除VBA工程密码，破解者完全可以在不触发任何代码的情况下获取你的VBA代码。
• 邮件拦截风险：杀毒软件或Outlook的安全设置可能会拦截自动发送的邮件，导致你无法收到警报。

三、更可靠的替代方案 #

如果需要真正保护VBA代码，建议考虑以下方式：

• 编译为DLL：将核心逻辑编译成COM DLL，在VBA中调用DLL的功能。即使VBA工程被破解，核心代码也不会暴露。
• 专业加密工具：使用第三方Excel加密工具，提供比自带保护更强的加密。
• 企业级权限管理：如果是企业环境，使用Excel的信息权限管理（IRM），可以限制文件的访问、修改和复制权限，从根源上控制文件流转。

内容的提问来源于stack exchange，提问作者Kashish Jain