Notifications
Clear all

Fechar Excel com Macro

4 Posts
3 Usuários
0 Reactions
850 Visualizações
(@carlosrgs)
Posts: 0
New Member
Topic starter
 

Bom dia Pessoal.

Antes de tudo eu achei a macro para fechar o excel, mas surgiu uma dúvida.

Tenho o código...

Private Sub Workbook_Open()

    Dim planAtiva As Worksheet
    Application.ScreenUpdating = False
    Set planAtiva = ActiveSheet
    
'
    Sheets("Inicio").Visible = True
    Sheets("Inicio").Select
'
    Range("B30").Select
    Range("A30").Select
    
    Dim EncontraString As String
    Dim Intervalo As Range
        EncontraString = "csantos"
    If Trim(EncontraString) <> "" Then
    With Sheets("Inicio").Range("A29:A31")
    Set Intervalo = .Find(What:=EncontraString, _
        After:=.Cells(1), _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious, _
        MatchCase:=False)
    If Not Intervalo Is Nothing Then
        Application.Goto Intervalo, False
'           Aqui macro se localizar
    Range("B1").Select

    Sheets("Inicio").Visible = True
    Sheets("Inicio").Select
    Sheets("Base").Visible = False
    Sheets("Base1").Visible = False
    Sheets("Validação").Visible = False
    Sheets("Temp. Valid.").Visible = False
    Sheets("Cadastro").Visible = False
    Sheets("Conferidas").Visible = False
    Sheets("XML_Pend").Visible = False
    Sheets("Desenvolvimento").Visible = False
    Sheets("Roteiro").Visible = False

        Else
'           Aqui macro se não localizar
    MsgBox "Você não está logado no Windows como Larissa Lopes!"

    ThisWorkbook.Save
    ThisWorkbook.Close

            End If
        End With
    End If
    
End Sub

Com outro código, quando o excel seleciona a célula A30 ele insere o usuário do windows.
Se o usuário não for o determinado no código acima o excel salva e fecha o arquivo.

Com o código
ThisWorkbook.Save
ThisWorkbook.Close

O Excel mantem o "Aplicativo Excel aberto"

Em outro tópico foi dito para usar o "Application.quit"
viewtopic.php?f=10&t=886

Mas quando eu substituo o ThisWorkbook.Close pelo Application.quit o excel pergunta se desejo salva ou não, se clicar em cancelar trava tudo, como essa planilha será usada por outras pessoas, gostaria de saber se tem outra maneira de fechar tudo o Excel sem a confirmação de salvar ou não.

 
Postado : 02/10/2015 8:59 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Carlos,

Utilise o Application.quit sem remover o Thisworkbook.save

onde está:

ThisWorkbook.Save
ThisWorkbook.Close

Deixe:

ThisWorkbook.Save
Application.Quit

Qualquer coisa da o grito.
Abraço

 
Postado : 02/10/2015 10:42 am
(@setti)
Posts: 0
New Member
 
Excel.Application.DisplayAlerts = False
Application.ThisWorkbook.Save
Application.Quit
 
Postado : 02/10/2015 10:43 am
(@carlosrgs)
Posts: 0
New Member
Topic starter
 

Obrigado a ambas respostas.

Eu já havia tentado isso Bernardo, mas mesmo salvando com macro antes do Quit o Excel perguntava novamente se deseja salvar.

A Solução do Setti funcionou.

Obrigado!

 
Postado : 02/10/2015 12:54 pm