|
Also ich habe jetzt zwei Wege gefunden, damit umzugehen.
1. Eine Kopie vor der Bearbeitung erstellen.
Da sich damit automatisch die Datei umbenennt und die Original Datei "schließt, weg ist" (durch die Umbenennung) muss sie erneut geöffnet werden.
Am Ende des Makros schließe ich die Kopie. Da das Makro an sich in der Kopie weiterläuft, kann ich es nicht vorher schließen.
Workbooks(ZName).Worksheets(ZSheet).Activate
Shell "explorer , ZPath"
ActiveWorkbook.SaveAs Filename:=ZPath & "/Sicherungen/" & (Date) & " " & ZName
ZKopie = ActiveWorkbook.Name 'Erstellt sich aus aktiver Quelldatei (Kopie)
'Originaldatei wieder öffnen
Workbooks.Open Filename:=ZPath & "/" & ZName, Local:=True
'Schließen der Kopie am Ende des Makros
Workbooks(ZKopie).Close SaveChanges:=True
Der 2. Weg ist einfach so, das ich die Datei erst am ende kopiere.
Dazu speichere ich erst die Originaldatei und danach als Kopie.
' Arbeitsblatt speichern
Workbooks(ZName).Activate
ActiveWorkbook.Save
'Kopie speichern
If SpeicherAbfrage = True Then
Workbooks(ZName).Worksheets(ZSheet).Activate
Shell "explorer , ZPath"
ActiveWorkbook.SaveAs Filename:=ZPath & "/Sicherungen/" & (Date) & " " & ZName
ZKopie = ActiveWorkbook.Name 'Erstellt sich aus aktiver Quelldatei (Kopie)
'Originaldatei wieder öffnen
Workbooks.Open Filename:=ZPath & "/" & ZName, Local:=True
'Schließen der Kopie
Workbooks(ZKopie).Close SaveChanges:=True
End If
Auch dort öffne ich die Originaldatei, damit ich damit weiterarbeiten kann.
Vielleicht hift es ja jemanden.
Tschau
Bernd
PS. Sollte jemand eine bessere Lösung finden eine Kopie im Sharepoint zu speichern, gerne her damit.
|