Views

Histats

Vitrine

VBA Excel - Fechando planilha sem Salvar

Segue mais uma dica preciosa do amigo Denis Ostorero.

Como fechamos uma planilha sem que ela pergunte se desejo salvar?

Suponhamos que a versão que está disponibilizando não possa ser alterada ou que você tenha um bom motivo para não permitir que seus usuários gravem alguma coisa nela...Segue modelo:

' Essa simples rotina, pode fazer um estrago...
' 1 - Fecha a pasta de trabalho ativa, SEM SALVAR, ou
' 2 - Fecha TODAS as pastas de trabalho abertas

             
Sub CloseNotSave()                

  ' Informa ao Excel que a pasta já está salva
  ThisWorkbook.Saved = True
                  
  ' Fecha a pasta de trabalho. O Excel fica aberto.
  ' Se houver outras pastas abertas, ficarão abertas
  ThisWorkbook.Close

  ' Para sair do Excel (encerrar o aplicativo) sem
  ' salvar TODAS as pastas abertas:                 
    ' Aqui ele procura (loop) pastas abertas
    ' For i = 1 To Application.Workbooks.Count
      ' Diz ao Excel que a pasta já está salva
      ' Application.Workbooks(i).Saved = True
                      
      ' Procura outras pastas abertas, até a última
    ' Next
                  
  ' Diz ao Excel que está tudo bem, que é para fechar o
  ' "estabelecimento", e ir descansar
  ' Application.Quit                
End Sub

André Luiz Bernardes

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias