title: vba using save as without opening the file
body: <p>Is there any way to use <code>ActiveWorkbook.SaveAs</code> without opening the destination file?</p>
  
  <p>My main Workbook called <code>TEC ALOC EXT</code> has a code to when it's saved it's generate another file without macros in a different path (using <code>FileFormat:=51</code>) called <code>ALOCACAO TECNICOS</code>. But this type of FileFormat also opens the destination file (<code>ALOCACAO TECNICOS</code>) at the end and closes the <code>TEC ALOC EXT</code> worksheet.</p>
  
  <p>This it not good for me because I want to keep changing things on my <code>TEC ALOC SHEET</code> sheet.</p>
  
  <p>Is there any way to just save the <code>ALOCACAO TECNICOS</code>without opening it?</p>
  
  <p>Here is my code:</p>
  
  <pre><code>Sub CopiarNovaPlanilha()
  
  Application.EnableEvents = False
  Application.DisplayAlerts = False
  
  ActiveWorkbook.SaveAs "I:\CGP\DEOPEX\01 - Supervisão\10 - Alocação das equipes\Consulta Alocados\ALOCACAO TECNICOS", FileFormat:=51
  
  ActiveWorkbook.Sheets(1).Name = "FUNCIONARIOS"
  
  
  Application.EnableEvents = True
  Application.DisplayAlerts = True
  
  End Sub
  </code></pre>
  
  <p>That is triggered by <code>AfterSave</code> event:</p>
  
  <pre><code>Private Sub Workbook_AfterSave(ByVal Success As Boolean)
  
  If Success Then
  
  
  Call CopiarNovaPlanilha
  
  
  End If
  
  End Sub
  </code></pre>