Excel schliessen.
06.08.2003 15:23:11
Daniel
mit der Code:
Sub beenden()
Dim sMag As String
sMsg = "Soll test geschlossen und gespeichert werden?"
Select Case MsgBox(sMsg, vbInformation + vbYesNoCancel)
Case vbYes: ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
ActiveWorkbook.Unprotect
Application.DisplayFullScreen = False
Application.ScreenUpdating = True
Application.Quit
Case vbNo: Call Weiterbeinein
Case vbCancel: Call Weiterbeiabbruch
End Select
End Sub
soll nicht nur der Datei test, sonder Excel geschlossen werden + den Ganzen Bildschirm schliessen.
TEST WIRD GESCHLOSSEN, DER REST NICHT!!!
Ich bitte um Hilfe!
Grüß Daniel