Hinweistext bei SaveAs
19.05.2005 14:26:59
Matthias
habe mal wieder ein Problem, bei dem ich als Änfänger nicht weiter komme.
Ich möchte eine Abfrage erstellen, die den Nutzer bei der Auswahl "speichern unter" darauf hinweist, dass evtl. Verknüpfungen verloren gehen können.
Gelungen ist es mir nur, wenn ich das "normale" Speichern abfrage.
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Frage As Byte
Frage = MsgBox("Es gehen evtl. Verknüpfungen zu anderen Tabellen verloren?", vbOKCancel + vbDefaultButton2, "Speichern")
If Frage = vbCancel Then
Cancel = True
End If
End Sub
Was muss ich tun, damit es auch mit "speichern unter" funktioniert?
Für ein wenig Hilfe wäre ich sehr DANKBAR!
MatthiasPeer
Anzeige