Använd egenskapen Sparad för att avgöra om en arbetsbok har ändrats

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Sammanfattning

Du kan avgöra om ändringar har gjorts i en arbetsbok genom att markera egenskapen Spara för arbetsboken. Egenskapen Sparad returnerar värdet Sant eller Falskt beroende på om ändringar har gjorts i arbetsboken.

Anteckning

Det går att sätta egenskapen Saved till True eller False. Avsnittet "Mer information" i den här artikeln innehåller exempelmakro som visar hur egenskapen Sparade används.

Olika villkor i kalkylbladet, till exempel förekomsten av beständiga funktioner, kan påverka egenskapen Sparad.

Mer information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov.

Exempel 1: Makro för att visa meddelandet om den aktiva arbetsboken innehåller ändringar som inte sparats

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

Exempel 2: Makro för att stänga arbetsboken och ignorera ändringar

Det här makrot stänger arbetsboken som innehåller exempelkoden och tar bort alla ändringar i arbetsboken genom att sätta egenskapen Sparad till Sant:

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

Exempel 3: Ett annat makro för att stänga arbetsboken och ignorera ändringar

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

Referenser

Mer information om hur du använder exempelkoden i den här artikeln finns i Köra exempelkod från Knowledge Base-artiklar i Office 2000.