Excel VBA aftersaveイベントが機能しません

Question

元のシートを保存するたびに、このシートをコピーします。

これを達成するために、モジュール上でマクロを呼び出すにAfterSaveを使用しようとしていました。

コードは以下の通りです：

Private Sub Workbook_AfterSave(ByVal Success As Boolean) 

If Success Then 
Application.EnableEvents = False 

Call CopiarNovaPlanilha 

Application.EnableEvents = True 
End If 
End Sub 

Application.EnableEventsは私がHEREを学んだとしてだけでループを回避することです。ここではモジュール内のマクロです：

Sub CopiarNovaPlanilha() 

ActiveWorkbook.SaveCopyAs "I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx" 

End Sub 

AfterSaveではないので、私は私の元のファイルを保存するときにそれが必要として、それは私のサブを呼び出していないが、このコードは完璧に働いています。

このイベントでは何が起こっているのですか？

Answer 1

あなたは条件をテストしていませんでしたので、それはだと思う、これを試してみてください成功の価値のそれが真実か偽かをチェックする必要があります

Private Sub Workbook_AfterSave(ByVal Success As Boolean) 

If Success = True Then 

    Application.EnableEvents = False 

    Call CopiarNovaPlanilha 

    Application.EnableEvents = True 

End If 

End Sub 

Answer 2

ブックをブックブックから直接呼び出すと、問題が発生することがあります。私は何をしようとするあなたをお勧めしますが、単にそのようAfterSaveイベントにあなたのサブの内容を入れている：

Private Sub Workbook_AfterSave(ByVal Success As Boolean) 

Application.EnableEvents = False 

ActiveWorkbook.SaveCopyAs "I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS.xlsx" 

Application.EnableEvents = True 

End Sub 

はあなたのサブの内部の任意の変数を使用していない考慮すると、私はなぜこれがないだろう見ていけません作業！

Answer 3

場所：CopiarNovaPlanilhaで偽application.events =（）の代わりに：

Private Sub Workbook_AfterSave(ByVal Success As Boolean) 

Call CopiarNovaPlanilha 

End Sub 

とモジュール用：

Sub CopiarNovaPlanilha() 

    Application.EnableEvents = False 

    ActiveWorkbook.SaveCopyAs "file location" 
    Application.EnableEvents = True 
    End Sub