Salvar como, Fechar arquivo e enviar por e-mail

[Palermo]

Galera,

Boa noite!

Preciso de uma ajuda para um problema que estou encontrando, peço desculpas se for um caso muito banal, mas as vezes tenho estes problemas.

No código abaixo, eu executo algumas rotinas para salvar o arquivo como.
podem ao executar o código, eu acabo fechando o arquivo original e ficando com o que foi salvo como aberto.
Gostaria permanecer com o original aberto e salvo! e não o que foi salvo como no local indicado.

Posteriormente saindo deste problema, preciso fazer com que o arquivo que foi "salvo como" seja enviado diariamente até 09:05:00 da manhã, sempre de segunda a sexta.
Tenho como fazer isso automaticamente, mas não sei como fazer, alguém pode me salvar?

Sub Salvarcomo()

Dim SC_pasta As String
Dim SC_nome_arquivo As String

Call Atualizar_tudo
Call Entrar
Call xlsm2
Call xlsn
Sheets("Painel").Select

'Pasta que o arquivo vai ser salvo - Coloque sempre a barra no final \.
SC_pasta = Sheets("CONFIG").Range("D21").Value

'Nome a ser dado ao Arquivo - Coloque o nome mais a extensão como no exemplo (nome_do_arquivo.xlsx)
SC_nome_arquivo = Sheets("CONFIG").Range("D22").Value

'Rotina que SALVA o Arquivo no local escolhido

On Error GoTo erro_codigo

'Salva o arquivo
ActiveWorkbook.SaveAs FileName:=SC_pasta & SC_nome_arquivo _
, FileFormat:=50, CreateBackup:=False

Exit Sub

erro_codigo:

MsgBox "Pasta informada nos não localizada ou ocorreu erro no salvamento." & vbLf & "Verificar se as pastas existem ou se há outro impedimento para o salvamento do arquivo!" + Chr(13) + Chr(13) & SC_pasta, vbMsgBoxSetForeground, "ATENÇÃO!"

End Sub


Encaminho abaixo a URL caso queira dar uma olhada no arquivo.
baixar Planilha Teste1[/url]https://1drv.ms/u/s!ApBxh78tXjFJgT7EB93TmR6AukA6