Änderung feststellen ...
14.01.2007 14:42:51
Klaus
mit u.g. umgehe ich diese vorgehensweise, mit dem vorteil, dass ich weitere funktionen einbinden kann, habe aber den nachteil, dass es immer ausgeführt wird. also soll die datei ohne änderung geschlossen werden, dann werde ich trotzdem gefragt, ob die (nicht durchgeführte) änderung gespeichert werden soll.
was kann ich machen, damit festgestellt wird, ob irgendetwas in dem gesamten workbook geändert wurde, damit bei einer nichtänderung das workbook ohne u.g. dialog schließt. vielen dank.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
If Not .Saved Then
Select Case MsgBox("Sollen die Änderungen gespeichert werden?", vbYesNoCancel)
Case vbYes
.Save
Case vbNo
.Saved = True
Case vbCancel
Cancel = True
Exit Sub
End Select
End If
End With
End Sub
Anzeige