Datei öffnen verhindern, wenn Datei offen
08.10.2004 21:29:49
Georg
ich habe mir eine Art Menu gebastelt, über das ich diverse Excel Dateien öffen kann. Dies mache ich über Objekte, denen ich Makros zugewiesen habe. Aus den geöffneten Dateien kann ich auch wieder per Makro zurück ins Menu springen.Mein Problem ist jetzt, wenn ich eine Datei bereits geöffnet habe und dann aus meinem Menu heraus die Datei noch mal mit dem Makro öffne, gehen alle Eingaben verloren.Mein Makro lautet:
Sub KNR_eingeben()
On Error Resume Next
ChDir "C:\Abwicklung\Office"
Workbooks.Open Filename:="C:\Abwicklung\Office\KNR.xls"
Application.DisplayAlerts = False
ChDir "C:\Abwicklung"
ActiveWorkbook.SaveAs Filename:="C:\Abwicklung\KNR.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks.Open Filename:="C:\Abwicklung\K-Nr-Auslieferungen.xls"
Application.DisplayAlerts = True
End Sub
Bearbeitet wird die K-Nr-Auslieferung
Zur info die Dateien werden aus dem Menu gesichert , gestartet und wenn bereits geöffert nur eingeblendet.
Vielleicht habt ihr eine Idee?
Gruß Georg