Evento Application.WorkbookBeforeSave (Excel)

Ocorre antes de qualquer pasta de trabalho aberta ser salva.

Observação

No Office 365, o Excel dá suporte ao AutoSave, que permite que as edições do usuário sejam salvas automaticamente e continuamente. Para obter mais informações, confira Como o AutoSave afeta suplementos e macros para garantir que o código em execução em resposta às funções de evento WorkbookBeforeSave , conforme pretendido quando o AutoSave estiver habilitado.

Sintaxe

expressão. WorkbookBeforeSave (Wb, SaveAsUI, Cancel)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Wb	Obrigatório	Workbook	A pasta de trabalho.
SaveAsUI	Obrigatório	Boolean	True se a caixa de diálogo Salvar como for exibida devido às alterações feitas e que precisam ser salvas na pasta de trabalho.
Cancel	Obrigatório	Boolean	False quando o evento ocorre. Se o procedimento de evento definir esse argumento como True, a pasta de trabalho não será salva quando o procedimento for concluído.

Valor de retorno

Nada

Exemplo

Este exemplo solicita ao usuário uma resposta sim ou não antes de salvar qualquer pasta de trabalho.

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ 
 ByVal SaveAsUI As Boolean, Cancel as Boolean) 
 a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
 If a = vbNo Then Cancel = True 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.