Findwindow 在 64 位 VBA7 中不起作用答案

【问题标题】：Findwindow does not work in 64bit VBA7Findwindow 在 64 位 VBA7 中不起作用
【发布时间】：2015-06-03 19:21:27
【问题描述】：

Unlocking Password Protected VBA project 提供的代码在 32 位下工作，但不是 64 位。具体来说，

Ret = FindWindow(vbNullString, "VBAProject Password")

总是返回 0。我试过了

Ret = FindWindow("#32770", "VBAProject Password")

Ret = FindWindow("XLMAIN", "VBAProject Password")

没有任何作用。我还尝试了以下 API：setforegroundwindow、bringwindowtotop、setfocus、getactivewindow、getwindowthreadprocessid。仍然失败，所以我认为这不是焦点问题。也许是时机？我尝试使用

SetTimer

但我是 API 新手，所以不知道如何实现。

我通过personal.xlsb 中的workbookopen 应用程序事件调用它我试图在打开任何工作簿时填写密码。

Private Sub AppEvent_WorkbookOpen(ByVal wb As Excel.Workbook)

If wb.VBProject.Protection <> 1 Then
Exit Sub
End If

Call unlockvba(wb)

End Sub

编辑：我已将我的声明设置为 PtrSafe 和 LongPtr（如果适用）。

【问题讨论】：

找到这个。 ozgrid.com/forum/showthread.php?t=174982 显然，findwindow 不起作用，因为密码对话框是模态的。似乎需要一个计时器，但不确定如何实现：/
Interesting Read:P
@SiddharthRout 伙计。我知道。这就是一切的开始。我上面指向其他问题的链接指向您的网站，所以我没有在这里再次链接 XD

标签： excel vba 64-bit

【解决方案1】：

想通了。问题不是 64 位，而是时间/焦点问题。

Sub unlockVBA(wb)

If wb.name = "PERSONAL.XLSB" Then Exit Sub

Application.VBE.MainWindow.Visible = True

TimerID = SetTimer(0&, 0&, 500&, AddressOf TimerProc)

Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

End Sub

Public Sub TimerProc(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal idEvent As LongPtr, ByVal dwTime As LongPtr)

On Error Resume Next
KillTimer hwnd, TimerID

MyPassword = "password"

Ret = FindWindow(vbNullString, "VBAProject Password")
ChildRet = FindWindowEx(Ret, ByVal 0&, "Edit", vbNullString)
If ChildRet <> 0 Then
Call SendMessage(ChildRet, WM_SETTEXT, False, ByVal MyPassword)
DoEvents
End If

ChildRet = FindWindowEx(Ret, ByVal 0&, "Button", vbNullString)

If ChildRet <> 0 Then
'MsgBox "Button's Window Found"

'~~> Get the caption of the child window
strBuff = String(GetWindowTextLength(ChildRet) + 1, Chr(0))
GetWindowText ChildRet, strBuff, Len(strBuff)
ButCap = strBuff

'~~> Loop through all child windows
Do While ChildRet <> 0
    '~~> Check if the caption has the word "OK"
    If InStr(1, ButCap, "OK") Then
    '~~> If this is the button we are looking for then exit
    OpenRet = ChildRet
    Exit Do
    End If

    '~~> Get the handle of the next child window
    ChildRet = FindWindowEx(Ret, ChildRet, "Button", vbNullString)
    '~~> Get the caption of the child window
    strBuff = String(GetWindowTextLength(ChildRet) + 1, Chr(0))
    GetWindowText ChildRet, strBuff, Len(strBuff)
    ButCap = strBuff
Loop

If OpenRet <> 0 Then
'~~> Click the OK Button
SendMessage ChildRet, BM_CLICK, 0, vbNullString
Else
MsgBox "The Handle of OK Button was not found"
End If
Else
MsgBox "Button's Window Not Found"
End If

【讨论】：