close verursacht excel-absturz
PeterP
dieser code (nicht zutreffende subs sind weggelassen) verursacht den absturz der excel-anwendung.
warum? und wie kann ich das verhindern?
Option Explicit
Public fAuthSave As Boolean, varMSG As Variant
fAuthSave = False
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not fAuthSave Then
varMSG = MsgBox("Diese Datei ist nur zum Ansehen geöffnet!" & vbNewLine _
& "Weiter Ansehen? ... zum Schließen [Nein]", vbYesNo)
If varMSG = vbYes Then
Cancel = True
Exit Sub
Else
Call Shutdown
End If
varMSG = ""
End If
End Sub
Private Sub Shutdown()
Application.StatusBar = False
ThisWorkbook.Close savechanges:=False
End Sub
thx4hlp
peter
Anzeige