VBA Excel - Utilize a Propriedade 'Saved' para determinar se o workbook foi alterado.

| Blog Office VBA | Blog Excel | Blog Access |

PODEMOS DETERMINAR SE ALGUMA ALTERAÇÃO FOI EFETUADA NO WORKBOOK, CHECANDO A PROPRIEDADE SAVED DO WORKBOOK. ESTA PROPRIEDADE RETORNA TRUE OU FALSE DEPENDENDO DA OCORRÊNCIA DE MUDANÇAS NO WORKBOOK.

Note:   Várias condições na sua worksheet, como a presença de funções de volatilidade, podem afetar a propriedade Saved. Funções de Volatilidade são aquelas que são recalculadas a cada momento que uma mudança é implementada na worksheet. Algumas dessas são RAND(), NOW(), TODAY(), e OFFSET().

O primeiro código mostra uma mensagem quando o workbook ativo foi alterada sem salvar:

  Sub NoSaved()     

  If ActiveWorkbook.Saved = False Then         

  MsgBox "Este workbook contém alterações sem salvar."     

  End If 

  End Sub  

O próximo código fecha o workbook descartando qualquer alteração que tenha sido efetuada nele:

  Sub FechaSemSalvar()     

  Let ThisWorkbook.Saved = True    

  Let ThisWorkbook.Close 

  End Sub  

Neste código abaixo, segue outro código que fecha o workbook e também descarta quaiquer alterações efetuadas:

  Sub FechaSemSalvar2()

  ThisWorkbook.Close SaveChanges:=False 

  End Sub 

Tags: VBA, Excel, saved, workbook