Ich habe eine Exceldatei bekommen welche beim schliessen immer automatisch speichert. Einen Code welcher diese Funktion steuert habe ich nicht gefunden.
Wo könnte dieser Befehl noch hinterlegt sein?
MfG
Ant
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Saisie").Select
If Range("A243") = 1 Then
ThisWorkbook.Save
Else
msg = "Bitte angeben ......" & Chr$(10) _
& " " & Chr$(10) _
& "Veuillez indiquer ...." & Chr$(10)
MsgBox msg, , "!!! Achtung !!! !!! Attention !!!"
Range("A228").Select
ThisWorkbook.Close False
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Saisie").Select
If Range("A243") = 1 Then
Me.Save
Else
msg = "Bitte angeben ......" & Chr$(10) _
& " " & Chr$(10) _
& "Veuillez indiquer ...." & Chr$(10)
MsgBox msg, , "!!! Achtung !!! !!! Attention !!!"
Range("A228").Select
Cancel = True
End If
End Sub
Gruß Uwe