课件下载 ：                                    

方式1：本节课件下载地址：链接: https://pan.baidu.com/s/1DhCDxiPRSQw2vjowgjWSRQ 密码: x6pe

方式2：或点击此处下载

效果图：

代码示例：

1. 在sheet1中选择通用下拉列表中的WorkSheet  右侧选择BeforeSave，写入下列代码:

    注意：确保在你的电脑C盘下有个文件夹叫做“data”，没有请建出来；

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ThisWorkbook.SaveCopyAs "c:\data\" & Format(Now(), "yyyymmddhhmmss") & ".xls"

End Sub

 
作者： 杨校

出处： https://blog.csdn.net/kese7952

分享是快乐的，也见证了个人成长历程，文章大多都是工作经验总结以及平时学习积累，基于自身认知不足之处在所难免，也请大家指正，共同进步。

本文版权归作者所有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出, 如有问题， 可邮件（397583050@qq.com）咨询。