VBA Kopie speichern
07.01.2022 11:24:40
Bruno
Wir haben in der Firma ein Excel Arbeitsplan File, welches sich in einem geschützten Laufwerk befindet. Dieses wird durch 2 Personen (nicht gleichzeitig) bearbeitet. Wird die Datei gespeichert, soll auf einem für alle zugänglichen Netzlaufwerk eine Kopie gespeichert werden. Dies soll zudem auch möglich sein, wenn das File bereits geöffnet ist.
Das Problem daran ist, dass mein Code/Excel zwischendurch hängen bleibt.
Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abrechen As Boolean)
Dim a As Variant
'Am aktuellen Ort speichern
ActiveWorkbook.Save
'Meldungen Ausschalten
Application.DisplayAlerts = False
'Speichern auf Share mit ReadOnly Empfehlung
ActiveWorkbook.SaveAs Filename:="\\Pfadangabe" + ActiveWorkbook.Name, ReadOnlyRecommended:=True
'Meldungen Einschalten
Application.DisplayAlerts = True
End Sub