Compartilhar via


Método Workbook.Save (Excel)

Salva as alterações na pasta de trabalho especificada.

Sintaxe

expressão. Salvar

Expressão Uma variável que representa um objeto Workbook .

Comentários

Para abrir um arquivo de pasta de trabalho, use o método Open .

Para marcar uma pasta de trabalho como salva sem escrevê-la em um disco, defina sua propriedade Saved como True.

Na primeira vez que salvar uma pasta de trabalho, use o método SaveAs para especificar um nome para o arquivo.

Exemplo

Este exemplo salva a pasta de trabalho ativa.

ActiveWorkbook.Save

Este exemplo salva todas as pastas de trabalho abertas e então fecha o Microsoft Excel.

For Each w In Application.Workbooks 
    w.Save 
Next w 
Application.Quit

Este exemplo usa o evento BeforeSave para verificar se determinadas células contêm dados antes que a pasta de trabalho possa ser salva. A pasta de trabalho não poderá ser salva até haver dados em cada uma destas células: D5, D7, D9, D11, D13 e D15.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   'If the six specified cells don't contain data, then display a message box with an error
   'and cancel the attempt to save.
   If WorksheetFunction.CountA(Worksheets("Sheet1").Range("D5,D7,D9,D11,D13,D15")) < 6 Then
      MsgBox "Workbook will not be saved unless" & vbCrLf & _
      "All required fields have been filled in!"
      Cancel = True
   End If
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.