Notifications
Clear all

Abrir arquivo somente leitura

4 Posts
2 Usuários
0 Reactions
2,392 Visualizações
valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

boa tarde

tenho uma macro que busca um arquivo, abre e copia as informções que preciso para montar minha estatística.
mas se o arquivo estiver aberto por outra pessoa não consigo copiar as ifnormações.
como fazer com que ele abra o arquivo se o mesmo estiver aberto, mas como somente leitura, copia e fecha sem salvar.

Sub consolida()
Application.ScreenUpdating = False
    'Consolida informações da planilha dados de todos os técnicos
    Application.ScreenUpdating = False
    Application.StatusBar = "Importando Dados dos Técnicos"
    Dim lf, i, lfdados, lfcons As Integer
    Dim caminho, arquivo As String
    Dim rel As String
    Dim cons, dados
    rel = ThisWorkbook.Name
    Set cons = Sheets("consolidar")
    Set dados = Sheets("Dados")
    lf = cons.Cells(65000, 2).End(xlUp).Row
    For i = 2 To lf
        caminho = cons.Cells(i, 2).Value
        arquivo = cons.Cells(i, 3).Value
        Workbooks.Open caminho & "" & arquivo
        Sheets("Dados").Select
        lfdados = Sheets("Dados").Cells(65000, 3).End(xlUp).Row
        If lfdados > 1 Then
            Range("a2:k" & lfdados).Copy
            Windows(rel).Activate
            dados.Select
            lfcons = dados.Cells(65000, 3).End(xlUp).Row + 1
            Cells(lfcons, 1).Select
            ActiveCell.PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            Windows(arquivo).Activate
            ActiveWorkbook.Close False
            Windows(rel).Activate
            cons.Select
        Else
            ActiveWorkbook.Close False
            Windows(rel).Activate
        End If
    Next
    Set cons = Nothing
    Set dados = Nothing
   Call exclui_dup
   Application.ScreenUpdating = True

   End Sub
 
Postado : 16/03/2015 12:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Você consegue controlar as permissões desse arquivo (seta-lo como leitura etc)?

Quando esse arquivo está aberto o usuário que o abre, precisa alterar etc esse arquivo?

Com ou sem VBA, manipular um arquivo vai depender do nível de privilégio de seu usuário em questão!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/03/2015 12:54 pm
valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

Boa tarde!!

Você consegue controlar as permissões desse arquivo (seta-lo como leitura etc)?
sim

Quando esse arquivo está aberto o usuário que o abre, precisa alterar etc esse arquivo?
sim, mas vou fazer isso varias vezes, pode ser que a mudança aconteça logo depois que eu copiar, mas não tem problema.

 
Postado : 17/03/2015 7:32 am
valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

ainda não consegui resolver este problema.
quero abrir o arquivo se alguem estiver usando, só para copiar informações para estatística e fechar sem salvar.

 
Postado : 19/03/2015 5:38 am