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,158 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 9: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 11:16 am