VBA运行时错误50289：如何不重开工作簿恢复VBProject锁定状态

• 触发规则：该错误仅在VBProject处于locked for viewing（锁定查看）状态时触发。VBA工程的各类密码保护机制逻辑与门锁一致，设计初衷为阻止非授权访问。
  
• 触发场景：经排查，错误仅在调用引用VBIDE库、用于修改指定工作表代码名的自定义函数时触发，函数代码如下：

Function chgWsCodeName(strName, cName, Optional WB As Workbook)

Dim ws As Worksheet
Dim VBProj As VBIDE.vbProject
Dim vbComps As VBIDE.VBComponents
Dim vbComp As VBIDE.VBComponent
Dim vbProps As VBIDE.Properties
Dim CodeNameProp As VBIDE.Property
If WB Is Nothing Then Set WB = ThisWorkbook
Set ws = Worksheets(strName)
Set VBProj = WB.vbProject
Set vbComps = VBProj.VBComponents
Set vbComp = vbComps(ws.CodeName)
Set vbProps = vbComp.Properties
Set CodeNameProp = vbProps("_Codename")
CodeNameProp.Value = cName

End Function

• 已排查项：已确认Tools/References（工具-引用）面板中所有必要依赖项均已正确勾选，尚未定位项目处于锁定查看状态时调用上述函数触发报错的根本原因。
  
• 待实现需求：
  目前已有公开方案可通过编程方式解锁VBProject，但现有公开资料显示VBProject.Protection属性仅在工作簿执行保存、关闭、重新打开操作后才会恢复为锁定状态。现需可行技术方案，满足以下要求：无需关闭并重开工作簿，即可将VBProject.Protection属性从vbext_pp_none（无保护）改回vbext_pp_Locked（锁定状态），恢复VBProject的锁定保护。
  此前多个技术论坛帖子称无法通过VB/VBA编程方式访问VBProject属性，但实际验证解锁操作可通过编程实现，现寻求该锁定回写操作的具体实现方法。

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