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

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 

André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com

| Blog Office VBA   |  Blog Excel | Blog Access    |