无需SendKeys程序化锁定/解锁xlsm文件VBAProject问题排查

问题拆解 #

你遇到的两个核心问题本质是CBT Hook的线程适配问题+调试上下文冲突：

• 用SetWindowsHookEx绑定当前线程后，只能捕获主线程触发的窗口事件，但VBA工程属性对话框是在独立子线程中创建的，主线程Hook根本抓不到它的激活事件，自然没法切换到保护标签页
• 断点崩溃是因为Hook回调函数Catch_DlgBox_Activation运行在Hook的特殊栈上下文中，Excel调试器无法处理这种跨线程的断点触发，直接导致进程崩溃

可行修复方案 #

1. 修正Hook的线程绑定逻辑 #

不要用GetCurrentThreadId()绑定当前主线程，改为枚举Excel进程的所有子线程，定位到属性对话框所属的线程后再绑定Hook：

• 用CreateToolhelp32Snapshot枚举当前Excel进程的所有线程
• 结合GetWindowThreadProcessId找到属性对话框的线程ID
• 将Hook绑定到该子线程ID，而非当前主线程

2. 绕过Hook，直接操作VBAProject底层 #

不用碰对话框，直接修改xlsm文件的OLE存储结构：

• 把目标xlsm文件重命名为.zip并解压
• 找到xl/vbaProject.bin文件，用OLE存储编辑器打开
• 修改PROJECT流中的保护字段，替换密码哈希值（不同Excel版本的字段位置略有差异，需自行验证）
• 重新打包为xlsm文件即可完成锁定/解锁

3. 用API直接定位控件替代Hook #

放弃CBT Hook，直接用窗口查找API定位对话框控件：

' 核心代码示例
Const TCM_SETCURSEL = &H1330
Dim hDlg As Long, hTabCtrl As Long

' 找到VBA属性对话框句柄
hDlg = FindWindow(vbNullString, "VBAProject 属性")
If hDlg <> 0 Then
    ' 找到标签控件
    hTabCtrl = FindWindowEx(hDlg, 0, "SysTabControl32", vbNullString)
    ' 切换到保护标签（索引1，常规标签是0）
    SendMessage hTabCtrl, TCM_SETCURSEL, 1, 0
    ' 后续定位密码输入框、确认按钮，用SendMessage发送文本/点击消息
End If

避坑提示 #

• 用API定位控件时，确保目标Excel窗口处于前台，否则可能找不到句柄
• 直接修改vbaProject.bin的方法需要先关闭目标文件，避免文件锁定
• 全局Hook（绑定所有线程）会影响系统内所有Excel进程，不推荐在生产环境使用

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