Private Sub Workbook_BeforeClose(Cancel As Boolean
16.12.2004 14:43:18
FPH
wende mich heute mal wieder an Euch mit folgendem Problem:
Warum kann ich das schließen der Datei mit dem Code nicht verhindern, habe ich einen fehler im Code ? Danke für Eure hilfe.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("d36") = 0 Then
If Range("h60") = 0 Then
If MsgBox("Sie haben keine Angebots/Auftrags Nr.: angegeben, oder es wurden keine Mengen in die Produktpalette eingegeben." & vbLf & _
"Möchten Sie die Werte korrigieren ?", vbYesNo) _
= vbYes Then
Application.Cursor = xlDefault
Cancel = True
End If
End If
End If
End Sub
Anzeige