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

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 

Tags: Excel, saved, workbook

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

 

bernardes@.com