Ich will verhindern, dass eine Excel-Datei über das Kreuz geschlossen werden kann und habe den Code in "Diese Arbeitsmappe" eingefügt.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If blnBeenden = False Then
Cancel = True
MsgBox "Das Programm immer über die Schaltfläche <Beenden> schließen!"
End If
End Sub
In der 32-Bit Excel-Version wird der Code ordnungsgemäß ausgeführt und das Schießen abgebrochen, wenn blnBeenden=False ist.
In der 64-Bit Excel-Version wird die Datei trotzdem geschlossen, auch wenn blnBeenden=False ist.
Wieso ist das so? Ich habe keine Erklärung dafür. Kann jemand helfen?
|