VBA自动关闭MsgBox失效问题求助：多段代码均无法运行

我尝试实现可在数秒后自动关闭的MsgBox，自己写了CommandButton1的代码，又找了网上几段代码，但所有代码都无法正常生效，求帮忙排查原因。相关代码如下：

Private Sub CommandButton1_Click()
Dim checkDt, AbortTime As Date
Dim strAbort As String
    If Date - 365 > checkDt Then
        AbortTime = Now() + TimeValue("00:00:05")
        Do
            MsgBox("Your License has expired! This Workbook will now close in 5sec.", vbCritical, "Expired")
            
        Loop While Now() < AbortTime
        userform1.show
    End If
End Sub

Private Sub CommandButton2_Click()
Dim time_set As Integer, MsgBox As Object
Set MsgBox = CreateObject("WScript.Shell")
'Set the message box to close after 1 second
time_set = 2
Select Case MsgBox.PopUp("Hello There!", time_set, "Message Box will be gone after 1 Second", 0)
Case 1, -1
Exit Sub
End Select
End Sub

Private Sub CommandButton3_Click()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.PopUp "", 3, "This Message Box will be gone in 1 second"
End Sub

Private Sub CommandButton4_Click()
Application.ScreenUpdating = True
'On Error Resume Next
ActiveWorkbook.Save
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 4
Select Case InfoBox.PopUp("Done !! Click OK " & Chr(13) & Chr(13), AckTime, "RV 7383423400", 0)
Case 1, -1
Exit Sub
End Select
End Sub

各按钮代码的问题分析及修正： #

1. CommandButton1_Click

• 核心问题：checkDt变量未初始化，默认值为1899-12-30，Date - 365必然大于这个值，会进入循环。但VBA内置的MsgBox是模态窗口，不手动点击确定就不会执行后续代码，循环根本无法继续判断时间，导致弹窗永远不会自动关闭，还会反复弹出新的MsgBox。
• 修正方案：改用WScript.Shell.PopUp实现自动关闭，同时初始化checkDt变量：

Private Sub CommandButton1_Click()
Dim checkDt As Date, WshShell As Object
' 替换成实际的授权到期日期
checkDt = #1/1/2023#
Set WshShell = CreateObject("WScript.Shell")

If Date > checkDt Then
    ' 5秒后自动关闭的弹窗
    WshShell.PopUp "Your License has expired! This Workbook will now close in 5sec.", 5, "Expired", vbCritical
    UserForm1.Show
End If
End Sub

2. CommandButton2_Click

• 核心问题：变量名MsgBox和VBA内置函数重名，导致调用PopUp方法时出现混淆，代码无法正常执行；另外注释写1秒关闭，但time_set设为2，参数和注释不一致。
• 修正方案：修改变量名，统一参数和注释：

Private Sub CommandButton2_Click()
Dim time_set As Integer, WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
' 设置弹窗2秒后关闭
time_set = 2
Select Case WshShell.PopUp("Hello There!", time_set, "Message Box will be gone after 2 Seconds", 0)
    Case 1, -1 ' 用户点击确定或弹窗自动关闭
        Exit Sub
End Select
End Sub

3. CommandButton3_Click

• 核心问题：PopUp的第一个参数是空字符串，导致弹窗没有内容，用户可能误以为代码没生效；注释写1秒关闭，但参数设为3秒；WshShell未声明，隐式声明可能引发未知问题。
• 修正方案：添加弹窗内容，统一参数和注释，声明变量：

Private Sub CommandButton3_Click()
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
' 3秒后自动关闭的弹窗，添加提示内容
WshShell.PopUp "This Message Box will be gone in 3 seconds", 3, "Auto-close Tip"
End Sub

4. CommandButton4_Click

• 潜在问题：注释写10秒关闭，但AckTime设为4秒，参数和注释不一致；ActiveWorkbook.Save可能因文件只读、权限不足等报错，建议保留错误处理。这段代码逻辑本身正常，若没生效可能是环境禁用了WScript.Shell。
• 修正方案：统一参数和注释，添加错误处理：

Private Sub CommandButton4_Click()
Application.ScreenUpdating = True
On Error Resume Next
ActiveWorkbook.Save
On Error GoTo 0

Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
' 设置弹窗4秒后关闭
AckTime = 4
Select Case InfoBox.PopUp("Done !! Click OK " & vbCrLf & vbCrLf, AckTime, "RV 7383423400", 0)
    Case 1, -1
        Exit Sub
End Select
End Sub

通用注意事项 #

• 自动关闭弹窗必须用WScript.Shell.PopUp，VBA内置MsgBox本身不支持自动关闭，只能通过外部对象实现。
• 避免变量名和VBA内置函数/对象重名，防止逻辑混淆。
• 确保Excel环境允许访问WScript.Shell，部分企业环境可能禁用该对象导致代码失效。

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