VBProject已解锁编辑状态与未受保护状态的区分及检测异常问询

这个问题确实是VBA对象模型里一个容易踩的坑——当你的VBProject设置了密码保护，但当前处于解锁编辑状态时，ThisWorkbook.VBProject.Protection确实会返回vbext_pp_none，和完全未保护的项目状态一模一样，这就导致没法直接用这个属性区分两种情况。

不过我们可以利用一个核心差异来区分：完全未保护的VBProject允许你添加/删除组件（比如模块、类模块），而受保护但已解锁的项目只能编辑现有代码，无法添加或删除组件。基于这个差异，我们可以写一个辅助函数来判断真实状态：

Function IsVBProjectTrulyUnprotected(proj As VBProject) As Boolean
    On Error Resume Next
    ' 尝试添加一个临时标准模块，只有完全未保护的项目才允许此操作
    Dim tempComponent As VBComponent
    Set tempComponent = proj.VBComponents.Add(vbext_ct_StdModule)
    
    If Err.Number = 0 Then
        ' 操作成功：说明项目完全未保护，清理临时模块
        proj.VBComponents.Remove tempComponent
        IsVBProjectTrulyUnprotected = True
    Else
        ' 操作失败：说明项目是受保护但已解锁的状态
        IsVBProjectTrulyUnprotected = False
    End If
    On Error GoTo 0 ' 恢复错误处理
End Function

接下来，你就可以在Workbook_BeforeSave事件里使用这个函数，精准区分两种状态：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim targetProj As VBProject
    Set targetProj = ThisWorkbook.VBProject
    
    If IsVBProjectTrulyUnprotected(targetProj) Then
        ' 项目完全未保护，执行锁定逻辑
        targetProj.Protect Password:="YourSecurePassword", Locked:=True
        Debug.Print "VBProject has been locked successfully."
    Else
        ' 项目是受保护但已解锁的状态，无需执行锁定
        Debug.Print "VBProject is protected but unlocked for editing - no action taken."
    End If
End Sub

补充说明 #

为什么会出现这个“属性返回异常”的情况？因为当VBProject被解锁编辑时，VBA对象模型会临时将Protection属性设置为vbext_pp_none，方便你编辑现有代码，但底层的保护机制依然在生效——所以涉及到组件添加/删除这类“结构性修改”的操作还是会被阻止，这就是我们区分两种状态的核心依据。

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