Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Identificando Se Ex...
 
Notifications
Clear all

Identificando Se Existe Algum Outro Arquivo Excel Aberto

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,642 Visualizações
RSS
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Amigos, tenho uma planilha que ao ser aberta, deveria alertar o usuário se existe algum outro arquivo do Excel aberto.
Por exemplo: Ao se abrir a minha planilha, ele deverá identificar que já existe uma outra planilha qualquer do Excel aberta e me alertar com uma msgbox.

Fiz algumas pesquisas mas não encontrei nada concreto.
Alguém faz ideia?

"O impossível, é só uma questão de tempo"

 
Postado : 28/10/2014 12:59 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Leia:
http://www.learnexcelmacro.com/wp/2013/ ... eady-open/
http://www.cpearson.com/excel/ISFILEOPEN.ASPX

Att

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

 
Postado : 28/10/2014 1:13 pm
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

alexandrevba, tentei fazer a adaptação do segundo exemplo mas empaquei no seguinte problema.
Quero que o Excel me avise se qualquer tipo de arquivo esteja aberto, ou seja, não sei qual arquivo poderá estar aberto, então utilizei a seguinte linha:

If IsFileOpen("*.xlsx") Then MsgBox "ESTA ABERTO"

Mas pelo jeito ele não reconheceu...
Tentei explanar a função IsFileOpen mas sem sucesso...
Tem alguma dica? Estou anexando a planilha que eu testei

Teste.zip

"O impossível, é só uma questão de tempo"

 
Postado : 28/10/2014 1:59 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wolney, se quer simplesmente verificar quais arquivos (Excel) estão abertos, use a rotina abaixo :

Sub Checar_Arquivos_Abertos()

Dim wbk As Workbook
    
    For Each wbk In Workbooks
        MsgBox "Arquivo nome : - " & wbk.Name & " está aberto"
    Next
    
End Sub

[]s

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

 
Postado : 28/10/2014 5:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja o modelo, abra uns 3 arquivos, depois click no botão para chamar o formulário, e veja os arquivos que estão abertos.

Attt

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

 
Postado : 29/10/2014 6:30 am
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Perfeitas! Os dois exemplos foram batatas.
Muito Obrigado amigos pela força!

"O impossível, é só uma questão de tempo"

 
Postado : 29/10/2014 7:03 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu fico feliz em ajudar, obrigado pelo retorno!!

Att

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

 
Postado : 29/10/2014 7:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico