none
Salvar e fechar no vba RRS feed

  • Pergunta

  • Bom dia

    A macro abaixo funcionava certinho de "primeira"(fechar e salvar plan e o aplicativo) até pouco tempo. Agora quando abro e fecho a plan depois de um certo tempo inativo, salva a plan mas o aplicativo fica aberto. Numa abertura seguinte, após a 1ª, funciona como deve ser: fechando e salvando normal. O que pode ser?

    Esta pasta de trabalho:
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        Dim AppExcel As Excel.Application
       Set AppExcel = New Excel.Application
      For Each wk In Workbooks
    If wk.Name = "Multiplexador.xlsb" Then
     Workbooks("Multiplexador.xlsb").Save
      Workbooks("Multiplexador.xlsb").Close
     ActiveWorkbook.Save
    End If
    Next
        With AppExcel
            .DisplayAlerts = False
            .ScreenUpdating = True
      End With
     Set AppExcel = Nothing
    Application.Quit
    End Sub
    
    Modulo:
    Option Explicit
     Sub Sair()
      Workbooks("Multiplexador.xlsb").Save
       Workbooks("Multiplexador.xlsb").Close
    Application.Quit
         End Sub
    
    


    terça-feira, 18 de novembro de 2014 11:57

Respostas

  • 'EstaPasta_de_trabalho:
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
      On Error Resume Next
      Workbooks("Multiplexador.xlsb").Save
      Workbooks("Multiplexador.xlsb").Close
      ThisWorkbook.Close True
      Application.Quit
    End Sub
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta carlito_penna terça-feira, 18 de novembro de 2014 23:54
    terça-feira, 18 de novembro de 2014 22:53
    Moderador

Todas as Respostas

  • Boa tarde carlito_penna, tudo certo?

    Tenta fazer assim lá no Modulo:

    ThisWorkbook.Application.Quit

    Abs.

    terça-feira, 18 de novembro de 2014 18:57
  • 'EstaPasta_de_trabalho:
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
      On Error Resume Next
      Workbooks("Multiplexador.xlsb").Save
      Workbooks("Multiplexador.xlsb").Close
      ThisWorkbook.Close True
      Application.Quit
    End Sub
    


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta carlito_penna terça-feira, 18 de novembro de 2014 23:54
    terça-feira, 18 de novembro de 2014 22:53
    Moderador
  • Boa noite

    Alteração no modulo feito a contento e gracias pela "quebra" do código em esta pasta de trabalho. 

    terça-feira, 18 de novembro de 2014 23:54