vba fecha planilha mas não fecha o excel

2024 - VBA & Macros

Post Recente por JNEXCEL 7 anos atrás

5 Posts

3 Usuários

0 Reactions

897 Visualizações

RSS

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

Pessoal,

Eu tenho esse código aqui:

 Application.EnableCancelKey = xlDisabled

    Dim dt As Date

    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
     dt = DateSerial(2015, 6, 29)
     If Date >= dt Then
     MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador."
  ThisWorkbook.Close SaveChanges:=False
  End If

Ele fecha a planilha, porém o excel fica aberto, tem como alterar para fechar a planilha e também encerrar o excel?

muito obrigado pela atenção de todos.

Postado : 20/02/2018 9:33 am

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Application.Quit

Postado : 20/02/2018 9:43 am

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

Devo deixar assim?

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled

    Dim dt As Date

    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
     dt = DateSerial(2015, 6, 29)
     If Date >= dt Then
     MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador."
  ThisWorkbook.Close SaveChanges:=False
  End If
  
  Application.Quit
  
End Sub

Eu deixei assim mais não deu certo, ele fecha a planilha mas o excel fica aberto

Postado : 22/02/2018 8:57 am

Rui Maciel

(@rui-maciel)

Posts: 190

Reputable Member

Tente assim

Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled

    Dim dt As Date

    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
     dt = DateSerial(2015, 6, 29)
     If Date >= dt Then
     MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador."
  Application.Quit
  End If
End Sub

Postado : 22/02/2018 9:02 am