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.