Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Código para verific...
 
Notifications
Clear all

Código para verificar Excel está aberto e fechar planilha.

 
2024 - VBA & Macros
Post Recente por jonasjtg 9 anos atrás
2 Posts
1 Usuários
0 Reactions
1,125 Visualizações
RSS
 jonasjtg
(@jonasjtg)
Posts: 43
Eminent Member
Topic starter
 

Ai beleza pessoal.

Nas minhas pesquisas achei este código.

Sub excelaberto()
If Workbooks.Count > 1 Then 'Or in your case = 0
'Ele verifica se esta aberta alguma planilha se tiver aparece a mensagem abaixo
       MsgBox "Excel aberto."
      ActiveWorkbook.Close True
    Else
       'Do Something Else'
    End If
End Sub

O meu problema e que uso uso o código abaixo para não deixar fechar o Excel sem pergunta!

Eu quero se for possível ele não pergunta ao fechar ignorando código abaixo

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Deseja realmente fechar?", vbYesNo + vbDefaultButton1, "GADBRAS") = vbYes Then        
        ThisWorkbook.Save
        Application.Quit
    Else
         Cancel = True
    End If
End Sub
 
Postado : 02/06/2016 6:04 am
 jonasjtg
(@jonasjtg)
Posts: 43
Eminent Member
Topic starter
 

Apos estudar e analisar descobrir como resolver!
Fica de estudo para quem precisar.

Os comando tem que estar na EstaPasta_de_trabalho

Option Explicit
Public NoEvents As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If NoEvents Then Exit Sub
If MsgBox("Deseja realmente fechar?", vbYesNo + vbDefaultButton1, "TESTE") = vbYes Then
        ThisWorkbook.Save
        Application.Quit
    Else
         Cancel = True
    End If
End Sub

Private Sub Workbook_Open()
Call excelaberto
End Sub

Sub excelaberto()
If Workbooks.Count > 1 Then 'Or in your case = 0
    MsgBox "Por favor fechar Excel!", vbInformation, "TESTE"
    ThisWorkbook.NoEvents = True
    Application.DisplayAlerts = False
    ThisWorkbook.Close savechanges:=True
    Else
       'Do Something Else'
    End If
End Sub
 
Postado : 02/06/2016 8:16 am
Forum Jump:
  Tópico Anterior
Próximo Tópico