[已解决]请各位老师帮忙写一段代码，谢谢！

huangjinyui · 发表于 2010-6-10 23:44

当工作簿被保存时，保存完毕后即退出工作簿，请各位老师帮忙写一写代码，谢谢！

最佳答案

开辆小富康

2010-6-11 08:41

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = 0
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = 1
End Sub

在thisworkbook中，粘进去以上内容。

跳转到最佳答案楼层

那么的帅 · 发表于 2010-6-11 00:08

只退出工作簿，还是退出工作簿且退出EXCEL程序？

fjmxwrs · 发表于 2010-6-11 00:14

Sub 保存并退出()
Application.Save
Application.Quit
End Sub

huangjinyui · 发表于 2010-6-11 08:16

是只退出工作簿，当工作簿被点击工具栏的保存时，在保存完成后即退出工作簿。

[此贴子已经被作者于2010-6-11 8:17:33编辑过]

开辆小富康 · 发表于 2010-6-11 08:41

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = 0
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = 1
End Sub

在thisworkbook中，粘进去以上内容。

huangjinyui · 发表于 2010-6-11 08:51

测试成功，感谢开老师！

fjmxwrs · 发表于 2010-6-11 12:22

学习了，原来是要点系统的保存呀

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