VBA：是/否消息框-如果在5秒钟内没有响应，则自动按No

Question

我希望实现打开工作簿，运行宏和关闭文件的工作流程自动化

//Run a Macro//
ActiveWorkbook.Close

但是，这样做的问题是，如果我要编辑某些内容，则无法编辑任何内容，因为它会自动关闭工作簿。因此，我想弹出一个是/否消息框，询问是否要关闭文件。如果没有响应，它将自动关闭（按“是”）。

/*Run a Macro*/
Close:= MsgBox, "Do you want to Close the File?", vbYesNo

/*Wait for 5 seconds for Response. If no response, automatically click Yes.*/

If Close = vbYes Then
   ActiveWorkbook.Close
Else
   'Don't Close
End If

P.S：请问是否有任何更简单的方法。

编辑＃1：

谢谢您的以下链接。我确实发现下面提供的link有用，但是

1. 它不是“是/否”弹出窗口。
2. 5秒后，它没有单击是或确定。它只是卸载了我尝试过使用此方法的弹出窗口
3. 用户表单。立即使用Application.OnTime + TimeValue（“ 00:00:05”），“ Test”函数。但这不是 理想的。即使我单击否，用户窗体仍会运行“测试” 子。