japimentel,

Boa tarde!

Bom... se tem uma maneira de fazer isso, eu realmente não sei dizer como. Até porque nunca passei por uma necessidade como essa. Entretanto, tenho algumas informações:
1 - Se seu computador estiver em uma rede e o outros computador onde você pretende salvar o arquivo também esteja na mesma rede, você deverá ter permissão do usuário da outra máquina, que deverá compartilhar a pasta dele (onde será salvo o arquivo) com você para que você possa salvar o arquivo lá. Para isso não há a necessidade de IP da máquina. Apenas o caminho completo da pasta compartilhada onde o arquivo deverá ser salvo.
2 - Se o computador que receberá o arquivo está em uma rede diferente, acho que isso envolve outros tipos de permissão de acesso a rede e, pelos problemas de segurança existentes, não sei se isso é possível. Deve ser, pois é possível pela rede, inclusive, acesso e manutenção remota à distância.
3 - Se é na mesma rede, porque simplesmente não coloca o arquivo em uma pasta no servidor da rede para que todos possam utilizar?
4 - Se é em redes diferentes e distantes (fisicamente), porque simplesmente não envia o arquivo por email para que a outra pessoa salve o mesmo no computador que ela usa?

Ok, obrigado, Wagner.
Os computadores estão distantes fisicamente.... são redes distintas.
Para implementar uma rotina que dispara um e-mail com uma cópia da planilha, digamos, todas as vezes que o botão SALVAR for clicado, o que pode ser feito? Preferencialmente que não abra nenhum aplicativo de e-mail, que faça automaticamente o envio da cópia para o endereço inserido na rotina.
O que você acha?
Grato pela atenção.

japimentel,

Aí já é bem mais fácil. Basta você utilizar a rotina abaixo no evento click do botão Salvar do seu Userform.

Sub EmailOutlook()
    '======================================
    ' Preparando o E-mail para ser enviado
    '======================================
    
    Dim Correio As Object, EMail As Object
    Dim Caminho As String
    
    Set Correio = CreateObject("Outlook.Application")
    Set EMail = Correio.CreateItem(0)
    
    'Campo Assunto
    EMail.Subject = "REMESSA DE ARQUIVOS"
    
    'A Mensagem que serguirá no corpo do e-mail
    EMail.Body = "Estamos remetendo, amexo, os arquivos conforme combinado."
    
    'Para quem vai a mensagem...
    EMail.To = "fulano@gmail.com"
    
    'Se for enviar com cópia para alguém...
    'EMail.Cc = "cicramo_antonio@gmail.com"
    
    'Seta a pasta onde estão os arquivos
    Caminho = ActiveWorkbook.Path & "Teste.xls"
   
    'Arquivos a serem anexados
    EMail.Attachments.Add Caminho
        
    'Enviando
    EMail.Send
    
    Set Correio = Nothing
    Set EMail = Nothing
End Sub

Muito bom, mesmo, Wagner.
Considerando que a rotina foi desenvolvida para rodar no Outlook, será possível fazer com que funcione no navegador Firefox para quem usa o Gmail, por exemplo?
Muito obrigado pela atenção.

José.

José,

Boa tarde!

Desculpe... aí já não sei como fazer.

Ok, vou instalar o Outlook na máquina e implementar a rotina seguindo as suas orientações. Obrigado.

De nada!!!

Por favor, vote positivamente clicando na mão localizado ao lado da ferramenta CITAR.