BeforeSave
15.03.2004 14:21:07
JörgB
Ich möchte gern, daß der User vor dem speichern gefragt wird, ob er die Versionsnummer ändern möchte. Anschließend erfolgt eine Weiterleitung zu „speichern unter“ incl. bisherigen Namen und neuer Versionsnummer. Sobald man dort „ok“ bestätigt erscheint folgende Fehlermeldung:
Laufzeitfehler 400, Formular wird bereits angezeigt….
Vermutlich will Ecxel nochmal BeforeSsave auszuführen – wie kann ich das verhindern?
Mein Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Version.Show
End Sub
Besten Dank im voraus,
ciao Jörg
Anzeige