Utilizzare la proprietà Saved per determinare se una cartella di lavoro è stata modificata

Riepilogo

È possibile determinare se sono state apportate modifiche a una cartella di lavoro controllando la proprietà Saved della cartella di lavoro. La proprietà Saved restituisce un valore True o False a seconda che siano state apportate modifiche alla cartella di lavoro.

Note

È possibile impostare la proprietà Saved su True o False. La sezione "Altre informazioni" di questo articolo contiene macro di esempio che illustrano l'uso della proprietà Saved.

Diverse condizioni nel foglio di lavoro, ad esempio la presenza di funzioni volatili, possono influire sulla proprietà Saved.

Ulteriori informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, a mero titolo esemplificativo, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. I tecnici del supporto Tecnico Microsoft possono aiutare a spiegare le funzionalità di una determinata procedura, ma non modificheranno questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare i requisiti specifici.

Esempio 1: macro per visualizzare il messaggio se la cartella di lavoro attiva ha modifiche non salvate

Sub TestForUnsavedChanges()
    If ActiveWorkbook.Saved = False Then
        MsgBox "This workbook contains unsaved changes."
    End If
End Sub

Esempio 2: Macro per chiudere la cartella di lavoro e annullare le modifiche

Questa macro chiude la cartella di lavoro contenente il codice di esempio e rimuove tutte le modifiche apportate alla cartella di lavoro impostando la proprietà Saved su True:

Sub CloseWithoutChanges()
    ThisWorkbook.Saved = True
    ThisWorkbook.Close
End Sub

Esempio 3: un'altra macro per chiudere la cartella di lavoro e annullare le modifiche

Sub CloseWithoutChanges()
    ThisWorkbook.Close SaveChanges:=False
End Sub

Riferimenti

Per altre informazioni su come usare il codice di esempio in questo articolo, vedere Come eseguire il codice di esempio negli articoli della Knowledge Base in Office 2000.