Speichern verhindern
15.03.2008 18:41:21
ioannis
ich möchte das speichern einer Mappe verhindern. Dazu benutze ich folgendes Makro:
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Speichern verhindern
If Sheets("Key").Range("B1").Value = "" Then
ThisWorkbook.Close savechanges:=False
End If
End Sub
Damit ich aber das Makro selber erstmal speichern kann, muss ich dieser Zelle, Sheets("Key").Range("B1"), ein Wert zuweisen, das ich später beim Öffnen wieder lösche und die Zelle auch noch schütze.
Gibt es vielleicht eine einfachere Variante?
Ich bedanke mich in Voraus.
Freundliche Grüsse
Ioannis
