想在关闭一个程序前，显示一个窗体几秒钟再自动关闭

lijunyong

想在关闭一个EXCEL 工作簿程序前，比如点击EXCEL表右上角的 X，在beforeclose 函数里 显示一个窗体，显示几秒后，窗体自动关闭，thisworkbook 也自动关闭，如何实现呢？
请哪位路过的大师给指点一下。

lss001

Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show  '显示窗体
t = Timer '以下暂停10秒/10
Do While Timer < t + 10: DoEvents: Loop
'以下关闭并保存当前工作薄/True
ThisWorkbook.Close SaveChanges:=True
End Sub