beenden / schließen
19.02.2004 20:05:59
Jonathan
ich habe ein problem, das ich nicht lösen kann.
Also, in
before_close
If beenden = True Then
ThisWorkbook.Saved = True
Cancel = False
Else
Cancel = True
MsgBox "Das Beenden des Programmes ist nur über den Button PROGRAMM BEENDEN möglich!", vbInformation
End If
in einem Modul
Public beenden As Boolean
beenden = True
Application.Quit
so, jetzt habe ich das problem, dass ich vor dem beenden noch alle anderen Dateien schließen möchte. das habe ich mit
If Not (ThisWorkbook Is Workbooks(i)) Then
Workbooks(i).Close True
gemacht (auch im Modul) aber das alles zusammen klappt nicht.....
Hat jemand eine idee?
Jonathan