Office: unterdrücken von BeforeSave in Excel VBA

hi!
ich habe zwei bedingungen definiert.
einmal über Workbook_BeforeClose und einmal Workbook_BeforeSave.
wenn nun BeforeClose zutrifft, werden blätter ausgeblendet, gespeichert etc. und ich möchte dann nicht, dass BeforeSave auch nochmal greift.
wie unterdrücke ich die ausführung von BeforeSave?!
bin ratlos *Smilie

thx a lot
fippo

:)

 

HAllo

Versuch mal nach dieser Machart:
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle1").Range("A1") = "Eine Änderung"
MsgBox "Workbook_BeforeClose"
ThisWorkbook.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Workbook_BeforeSave"
End Sub


ransi

 

Hi fippo,
wenn Du im "Workbook_BeforeClose"-Code speicherst, dann kannst Du im Code das Abfangen von Ereignissen ausschalten:
Code:

Severus

 

Code:

hab mal zum nachvollziehen den code hier eingefügt

problem a)
warum ist bei CountA([pflichtfelder]) = [pflichtfelder] ... mein Yes/No vertauscht? Wenn ich den Code teste, dann passierts genau andersrum wie es eigentl sollte... :/

problem b)
CountA([pflichtfelder]) = [pflichtfelder] ... sollte eigentlich vbYesNoCancel gebastelt werden, weiß nicht genau wie.
Das Frage_nicht_stellen = False ist ein Hilfskonstrukt, dass ich nicht 3 mal klicken muss.

problem c)
ich glaub der code ist unnötig kompliziert geschrieben *Smilie

...

naja, danke schonmal trotzdem. ich hoff er erschlägt euch nicht!

ciao
fippo