Método Workbook.Save (Excel)

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

Sintaxe

expressão. Guardar

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

Comentários

Para abrir um ficheiro de livro, utilize o método Abrir .

Para marcar um livro como guardado sem o escrever num disco, defina a respetiva propriedade Guardado como Verdadeiro.

Na primeira vez que guardar um livro, utilize o método SaveAs para especificar um nome para o ficheiro.

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 utiliza o evento BeforeSave para verificar se determinadas células contêm dados antes de o livro poder ser guardado. 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.