Excel VBA - Abrir outra planilha como "Somente Leitura"

[diego_janjao]

Pessoal, boa noite.

 

Eis que tenho a seguinte situação: Tenho uma planilha (Materiais Segregados) que busca os dados em outra (Registro de Recebimento), e para que não fique cheia de links externos eu uso um copiar colar por .Offset no VBA.

O que acontece: As vezes o usuário que está usando a planilha de Recebimento também fará o uso da Planilha de Segregados mas quando isso ocorre, aparece a seguinte mensagem:

Caso clique em sim, perderá tudo o que estava fazendo no Recebimento, caso clique em Não, acaba abrindo o depurador (Ainda não aprendi usar o On Error GoTo).

 

A solução que eu tentei foi a seguinte: Usar o ReadOnly: = True no comando Workbooks.Open mas não funcionou:

 

Private Sub pesquisar_btn_Click()

    Dim EmpFound As Range
    Dim Wb As Workbook
    
    Application.ScreenUpdating = False
 
    Set Wb = Excel.Application.Workbooks.Open("\\ln008svr03\processos\Projeto BPF Bonsucesso\10_Recebimento\RO.BN.05_002_Registro de Recebimento 2018.xlsb", ReadOnly:=True)
    Wb.Sheets("Registro de Recebimento 2018").Activate

Alguém pode me ajudar a contornar isso?

 

[Edson Luiz Branco]

Bom dia, @diego_janjao

 

Tô estranhando isso que tá acontecendo contigo.

Quando você tem um ArquivoA em rede e o Usuário1 na Máquina1 já está com ele aberto e você, Usuário2 na Máquina2 abre-o via macro da maneira que você descreveu, com ReadOnly = True, o arquivo abre normalmente em modo Somente Leitura sem emitir nenhum aviso (testei aqui e rodou assim).

Será que o ArquivoA já não estava aberto na sua Máquina2 ? 

[diego_janjao]

@Edson Luiz Branco bom dia. Quando ele está em outra máquina aberto funciona perfeitamente, pois o que ele faz é abrir o arquivo como somente leitura, pega os dados, fecha a planilha de recebimento sem salvar e tá tudo certo.

 

Esqueci de mencionar que no fim do meu evento ele fecha o Wb mas enfim.

 

Se eu estiver com o recebimento aberto sem modificações, ele considera o Workbook.Open já concluído, copia e fecha. Mas se tiver alguma modificação vai aparecer a mensagem conforme a imagem 1.

Pensando agora, acho que fica difícil abrir como somente leitura de já estiver aberto porque já terá um arquivo (editável que eles usam) aberto para lançar os recebimentos.

 

Será se não dá pra, via VBA, eu criar uma cópia de Recebimento, abrir essa cópia, pegar os dados, fechar a cópia e apagar a cópia?

[Edson Luiz Branco]

3 horas atrás, diego_janjao disse:

Será se não dá pra, via VBA, eu criar uma cópia de Recebimento, abrir essa cópia, pegar os dados, fechar a cópia e apagar a cópia?

 

Tente isso:

Private Sub pesquisar_btn_Click()
    Const caminho = "\\ln008svr03\processos\Projeto BPF Bonsucesso\10_Recebimento\"
    Const arquivo = "RO.BN.05_002_Registro de Recebimento 2018.xlsb"
    Dim arqTemp As Object
  Dim EmpFound As Range
  Dim Wb As Workbook
  Application.ScreenUpdating = False
    With CreateObject("Scripting.FileSystemObject")
      If .FileExists(caminho & arquivo) Then
        .CopyFile Source:=caminho & arquivo, Destination:=caminho & arquivo & "(Cópia)", _
                  OverWriteFiles:=True
        Set arqTemp = .GetFile(caminho & arquivo & "(Cópia)")
      Else
        Exit Sub
      End If
      Set Wb = Workbooks.Open(arqTemp.Path)
      Wb.Sheets("Registro de Recebimento 2018").Activate
      '.....
      '.....
      '.....
      '.....
      Wb.Close SaveChanges:=False
      arqTemp.Delete True
    End With
  Set arqTemp = Nothing: Set EmpFound = Nothing: Set Wb = Nothing
End Sub

 

[diego_janjao]

@Edson Luiz Branco funcionou perfeitamente!

 

Muito obrigado pela ajuda!