Opa!

Nao entendi muito bem o que precisa, mas para salvar como voce pode usar esse comando, tente aí:

ActiveWorkbook.SaveAs

Boa noite Vitor

Veja um tutorial no link abaixo:

http://excelevba.com.br/salvar-vba/

Se foi útil, clique na mãozinha.

[]s

Boa noite Família
Pra salva como utilizei o modo do tutorial que o Leandro passo mas não conseguir adaptar pra ela só salva como quando as 4 abas Da planilha for altera e quando salva,
Adicionar a data do dia.
Deu pra entender melhor Patropi
Agradeço a atenção de vocês

Att Vitor Hugo

Disponibilize um arquivo de modelo.

Boa noite MPrudencio
Obrigado pela atencao

Amãnha faço o envio de um modelo,
Vou Esplica como funciona meu sistema,
Tenho Um planilha chamada base com mas de 20 abas
Essa planilha recebe os dados de outras 4 planilha, limite, rap, rap2, acompanhamento,
Tenho uma macro que faz a cópia dessas planilhas para a planilha base, tô tentado cria uma macro pra quando eu atualiza as 4 abas ela salva a planilha base como. Em uma pasta no c: ao fazer o salvamento ela salva com a data do dia
Enviarei um arquivo base amanhã se o cod ler dá coluna A até a AA de 4abas da pra mim implementar
Grato pela atenção

Att.Vitor

Boa Tarde,

Segue Anexo de um modelo base a macro pra atualiza as abas eu ja tenho
quero cria uma pra quando atualiza as abas a planilha salva como. com o nome da planilha mas a data do dia
em uma unidade c:

Muito Obrigado Pela atenção

Att, Vitor Hugo

Sua planilha é igual a esta?

Disponibilize a planilha original (dados de exemplo)

Boa Tarde,
Obrigado pela atenção

Segue modelo original do arquivo com macro de atualiza as abas funcionando, apos atualização das 4 salva como. com a data do dia
a planilha e bem maior e mais complexa o principal e isso ai, obrigado pela ajuda

Obs: Pra executa com sucesso os dois arquivo tem que esta aberto oque vai recebe e oque e de onde vai copia
fico no aguardo

Att, Vitor Hugo

Pq nao usar tudo em uma unica aba?

Para que seja possivel o bloqueio é preciso ter um campo comum para que se possa verificar se esta alguma planilha sem preencher.

Vc tem uma planilha base e varias em separado. Pq disso? Uma unica planilha nao atende?

?

Boa Tarde Familia,
Obrihado pela atenção
os arquivos que tão separado e as que Atualiza a planilha base, dentro da plan base tem copias dos arquivos de fora com algumas colunas a mais com função que concatena algumas celulas pra gera um cod e fazer uma pesquisa no input, unas colunas fazem esquerda e retorna um valor pra pode fazer um filtro, essa plan e muito complexa tem tabelas dinamicas que usam filtros diferentes pra retorna valores de cada unidade,
ela e bem grande e esta perfeitamente funcional, as macro roda e atualiza a plan sozinha com a chegada de um email,
pra cada arquivo no final desse procedimento a plan base iria se salva sozinha
como posso fazer um ponto em comum ? cria uma variavel e coloca true ou false?
so muito novato em VBA tudo que sei aprendi aqui e na net se pode ser mais detalhista kk
Muitoo Obrigado mesmo pela atenção

Att, Vitor Hugo

MPrudencio

Boa Tarde olha como esta o andamento
fiz ativanta a aba do que gostaria de quando editaçe a aba

Option Explicit
Dim cont As Integer


Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim desativado As String
Dim salvar As String
'Dim cont As Integer
Application.DisplayAlerts = False
Const Folder As String = "C:2017"

desativado = True
cont = cont + 1
If cont >= 1 Then
desativado = False
    If cont Mod 1 = 0 Then
   ' ActiveWorkbook.save
    'salvar = MsgBox("O Documento foi SALVA com sucesso", vbApplicationModal)
    
    
    ThisWorkbook.SaveAs Folder & "Acompanhamento " & Format(Date, "yyyy.mm.dd") & ".xlsx", 51
    SendKeys ("{ENTER}")
    
    End If
     SendKeys ("{ENTER}")
End If
 SendKeys ("{ENTER}")

End Sub

Opa!

Nao entendi muito bem o que precisa, mas para salvar como voce pode usar esse comando, tente aí:

ActiveWorkbook.SaveAs

tentei usa mais nao deu usei o ThisWorkbook.
consegui avança no projeto da uma olhadinha pra da um help

Boa Tarde Familia
Segue Cod que consegui realiza, ele salva a planilha como. apos a celula d19 aba for alterada

Private Sub Worksheet_Change(ByVal Target As Range)

Const Folder As String = "C:2017"

 Application.DisplayAlerts = False

Application.ScreenUpdating = False
 If Target.Address = "$E$19" Then
                
        ActiveWorkbook.Save
        ThisWorkbook.SaveAs Folder & "Aompanhaaaaaaaaaaaaaa " & Format(Date, "yyyy.mm.dd") & ".xlsx", 51
      '  ThisWorkbook.Application.Quit
          
  
        
        Exit Sub
        ' Workbooks.Open ("X:SPOCGOFDIVISÃO DE ANÁLISE E INFORMAÇÕES GERENCIAIS - DAIGACOMPANHAMENTO EXECUÇÃO ORÇAMENTÁRIA - PLANILHASMacrov - Acompanhamento de orçamentoAcompanhamento orçamentário 3.1.xlsm")
    
    End If

  Workbook.Application.Open ("X:SPOCGOFDIVISÃO DE ANÁLISE E INFORMAÇÕES GERENCIAIS - DAIGACOMPANHAMENTO EXECUÇÃO ORÇAMENTÁRIA - PLANILHASMacrov - Acompanhamento de orçamentoAcompanhamento orçamentário 3.1.xlsm")
  
  'Workbooks.Open ("X:SPOCGOFDIVISÃO DE ANÁLISE E INFORMAÇÕES GERENCIAIS - DAIGACOMPANHAMENTO EXECUÇÃO ORÇAMENTÁRIA - PLANILHASMacrov - Acompanhamento de orçamentoAcompanhamento orçamentário 3.1.xlsm")
  
  Application.ScreenUpdating = True
  
End Sub