解决VBA Excel窗口处理代码64位系统适配报错问题

问题根源 #

你遇到的错误核心是64位VBA对API声明有两个强制要求：

1. 所有API声明必须添加PtrSafe属性
2. 窗口句柄(hWnd)等指针类型的参数/返回值必须用LongPtr替代Long

原代码中#Else分支是为32位旧版VBA设计的，虽在64位环境下不会被编译，但编辑器可能误报警告；更关键的是VBA7分支使用的GetWindowLong/SetWindowLong是32位专用函数，64位系统下需替换为官方推荐的64位兼容函数GetWindowLongPtr/SetWindowLongPtr。

你的修改存在的问题 #

你调整后的代码有几处需要修正：

• VBA7分支中GetWindowLongPtrA的别名仍为GetWindowLongA，不符合64位API命名规范，应直接使用GetWindowLongPtrA作为别名
• FindWindowA的返回值在VBA7中应为LongPtr，64位系统下窗口句柄是8字节长度，Long无法容纳
• HideTitleBar过程中的lFrmHdl变量类型未适配64位环境，需通过条件编译动态定义类型

正确的代码实现 #

' 放置在标准模块中
Option Explicit
Option Private Module

Public Const GWL_STYLE = -16
Public Const WS_CAPTION = &HC00000

#If VBA7 Then
    ' 64位VBA兼容声明
    Public Declare PtrSafe Function GetWindowLongPtrA _
                           Lib "user32" Alias "GetWindowLongPtrA" ( _
                           ByVal hWnd As LongPtr, _
                           ByVal nIndex As Long) As LongPtr
    Public Declare PtrSafe Function SetWindowLongPtrA _
                           Lib "user32" Alias "SetWindowLongPtrA" ( _
                           ByVal hWnd As LongPtr, _
                           ByVal nIndex As Long, _
                           ByVal dwNewLong As LongPtr) As LongPtr
    Public Declare PtrSafe Function DrawMenuBar _
                           Lib "user32" ( _
                           ByVal hWnd As LongPtr) As Long
    Public Declare PtrSafe Function FindWindowA _
                           Lib "user32" (ByVal lpClassName As String, _
                           ByVal lpWindowName As String) As LongPtr
#Else
    ' 32位旧版VBA声明
    Public Declare Function GetWindowLong _
                           Lib "user32" Alias "GetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long) As Long
    Public Declare Function SetWindowLong _
                           Lib "user32" Alias "SetWindowLongA" ( _
                           ByVal hWnd As Long, _
                           ByVal nIndex As Long, _
                           ByVal dwNewLong As Long) As Long
    Public Declare Function DrawMenuBar _
                           Lib "user32" ( _
                           ByVal hWnd As Long) As Long
    Public Declare Function FindWindowA _
                           Lib "user32" (ByVal lpClassName As String, _
                           ByVal lpWindowName As String) As Long
#End If

Sub HideTitleBar(frm As Object)
    #If VBA7 Then
        Dim lngWindow As LongPtr
        Dim lFrmHdl As LongPtr
    #Else
        Dim lngWindow As Long
        Dim lFrmHdl As Long
    #End If
    
    ' 获取窗口句柄
    lFrmHdl = FindWindowA(vbNullString, frm.Caption)
    
    If lFrmHdl <> 0 Then
        ' 获取当前窗口样式
        #If VBA7 Then
            lngWindow = GetWindowLongPtrA(lFrmHdl, GWL_STYLE)
        #Else
            lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
        #End If
        
        ' 移除标题栏样式
        lngWindow = lngWindow And (Not WS_CAPTION)
        
        ' 设置新的窗口样式
        #If VBA7 Then
            Call SetWindowLongPtrA(lFrmHdl, GWL_STYLE, lngWindow)
        #Else
            Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
        #End If
        
        ' 重绘菜单栏
        Call DrawMenuBar(lFrmHdl)
    End If
End Sub

关键修改说明 #

1. API函数替换：64位环境下用GetWindowLongPtrA/SetWindowLongPtrA替代旧版GetWindowLongA/SetWindowLongA，这是微软官方指定的64位兼容函数
2. 类型适配：所有涉及窗口句柄的参数和返回值统一用LongPtr类型，该类型会自动适配32/64位系统的内存长度
3. 条件编译：通过#If VBA7 Then分支区分两种环境，确保代码在所有版本的Excel中都能正常运行
4. 错误防护：增加窗口句柄有效性检查，避免空句柄导致的运行错误

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