Użyj właściwości Zapisane, aby określić, czy skoroszyt został zmieniony

Podsumowanie

Możesz określić, czy zmiany zostały wprowadzone w skoroszycie, sprawdzając właściwość Saved skoroszytu. Właściwość Saved zwraca wartość True lub False w zależności od tego, czy zmiany zostały wprowadzone w skoroszycie.

Uwaga 16.

Można ustawić właściwość Saved na wartość True lub False. Sekcja "Więcej informacji" tego artykułu zawiera przykładowe makra, które pokazują użycie właściwości Saved.

Różne warunki w arkuszu, takie jak obecność funkcji lotnych, mogą mieć wpływ na właściwość Saved.

Więcej informacji

Firma Microsoft podaje przykłady programowania tylko dla celów ilustracyjnych, nie udzielając żadnej rękojmi, wyrażonej wprost ani dorozumianej, w tym także, ale nie tylko, dorozumianej rękojmi co do przydatności handlowej lub do określonych celów. W tym artykule zakłada się, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc wyjaśnić funkcjonalność określonej procedury, ale nie zmodyfikują tych przykładów, aby zapewnić dodatkowe funkcje lub procedury konstruowania w celu spełnienia określonych wymagań.

Przykład 1. Makro wyświetla komunikat, jeśli aktywny skoroszyt ma niezapisane zmiany

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

Przykład 2. Makro zamyka skoroszyt i odrzuca zmiany

To makro zamyka skoroszyt zawierający przykładowy kod i odrzuca wszelkie zmiany w skoroszycie, ustawiając właściwość Saved na True:

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

Przykład 3. Inne makro, aby zamknąć skoroszyt i odrzucić zmiany

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

Informacje

Aby uzyskać więcej informacji na temat używania przykładowego kodu w tym artykule, zobacz Jak uruchomić przykładowy kod z artykułów bazy wiedzy w pakiecie Office 2000.