如何编写一个脚本，以特定的时间间隔将Excel文件保存到另一个文件？

我有一个macros创build一个Excel文档的备份副本。
如何使它在每次保存文档时自动运行？

这里是代码：

Sub BUandSave() 'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="G:\1 Processing\Christine\" & _ ActiveWorkbook.Name ActiveWorkbook.save Application.DisplayAlerts = True End Sub 

我从网上得到了这个代码，并没有VBA技能，请帮忙！

编辑：好吧，谢谢你的答案和见解。 现在我还有一个问题。 我如何制作备份副本以保存不同的名称。 我想使它像不要删除或不编辑，就像这样的事情，以便编辑文件的人不会不情愿地尝试编辑错误的东西。 我如何将其添加到代码？

Answer 1

答案是在您发布的代码中：

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="G:\1 Processing\Christine\" & ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub 

将上面的代码放在您的ThisWorkbook模块中（Alt + F11会让您进入VBA编辑器）。 Workbook_BeforeSave是一个工作簿事件。 在该事件被触发时，在此情况下，在工作簿被保存之前，代码被执行。 在Excel中的事件是相当酷的代码slingers一个强大的工具:-)您在您的问题发布的代码现在不再是必要的。