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

lijunyong · 发表于 2022-2-22 09:54

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

lss001 · 发表于 2022-2-22 11:39

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

		自动登录	找回密码
密码			免费注册