Speichern verhindern

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Ich habe eine Mappe mit mehreren Makros. Die Tabelle kann verändert werden, sollte aber nicht mit den veränderten Daten gespeichert werden können. Also ein Abspeichern ist zu verhindern, die Mappe muss in demselben Zustand geschlossen werden, wie sie geöffnet wurde. Mit obigem Makro funktioniert das auch, jedoch nur einmal. Wenn ich sie das nächste Mal öffne, kann ich sie verändern und verändert speichern.
Wie muss das Makro aussehen, damit es meinen Anforderungen gerecht wird?
Vielen Dank
Bruno Sutter