Private Sub Workbook_Open()
application.ontime now()+timevalue("00:05:00"),"aa" 'aa表示程序
End Sub
插入模块，在模块中写程序如下
sub aa()
thisworkbook.close savechanges:=false
end sub
=======================
原理是一样，主程序关闭就用这句
application.quit
您对代码一点了解也没有？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024