VBA自动关闭消息框-不关闭？

Sub CloseMessageBox()
    '发送按键消息来关闭消息框
    SendKeys "{ESC}"
End Sub

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Sub CloseMessageBox()
    Dim hWnd As Long
    
    '查找消息框的句柄
    hWnd = FindWindow(vbNullString, "消息框标题")
    
    If hWnd <> 0 Then
        '发送关闭消息给窗口
        SendMessage hWnd, &H10, 0, 0
    End If
End Sub

Sub CloseMessageBox()
    '关闭消息框
    Application.DisplayAlerts = False
    
    '你的代码逻辑
    
    '重新打开消息框
    Application.DisplayAlerts = True
End Sub