vba保存后复制工作表

我决定提出一个新的问题，因为我的第一个问题不太清楚。

保存原始表单后，我想将表单复制到另一个地方。

我正在使用这个代码：

Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then 'Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="I:\CGP\DEOPEX\01 - Supervisão\01 - Administrativo\06- ADM - Taís e Natalia\04 - Alocados - Equipes\TEC ALOCADOS" & " " & Format(Now(), "dd-mm-yyyy"), _ FileFormat:=51 'Application.DisplayAlerts = True End If End Sub 

这种作品。 当我保存文件并且SaveAs被触发时，似乎它在循环中。

首先它再次询问我是否真的想将新文件保存为一个无macros的工作簿（由于我已经将FileFormat指定为51，所以这已经是真的了）。

当我点击Yes它创build文件，然后启动一个循环，通知我该文件已经存在，如果我想覆盖它。

如果我说是，它会继续问我。 如果我说不，那么我得到：

运行时错误1004：对象_Workbook的方法SaveAs失败。

我试图插入Application.DisplayAlerts ，看看它是否会解决问题，但它没有改变，循环继续，现在我只是没有得到警报。

有什么build议么？ 我真的需要新的工作表上没有任何macros。