Spiegelung einer Datei

Guten Abend liebe Community,
ich stehe aktuell vor einer großen Herausforderung und bräuchte mal eure Hilfe.
Ich arbeite in einer Produktionsfirma und habe eine Art Logbuch für unsere Prudukte erstellt (für jedes Produkt eine Excel-Datei) wo jeder Mitarbeiter einträgt was er wann getan oder geändert hat.
Zudem sind alle Datein mit einer Backupdatei.xlsx verbunden. Dort werden in jeder Zeile diese eingegebenen Änderungen dann als Verlauf ,bei jeder Eintragung vom Mitarbeiter im Hintergrund per Makro eingetragen. Diese Datei ist aber Passwort geschützt und schreibgeschützt damit niemand dort was drin ändern kann.
Jetzt kommt Ihr ins Spiel. :)
Gibt es ein Makro wo ich meine Backupdatei.xlsx spiegeln kann? Quasi als separate Datei die sich beim öffnen mit meiner Urdatei (oder besser gleich bei der Eintragung in die Urdatei) jedes Mal synchronisiert bzw. komplett gleich ist? Zudem soll aber kein Laufzeiten Fehler auftreten wenn diese Datei geöffnet ist und ein Mitarbeiter aber eine Eintragung vornimmt. Die gespiegelte Datei soll zudem nur einen Schreibschutz besitzen.
Ich hoffe ich habe es verständlich erklärt und ihr könnt mir dabei helfen. :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nein ! Folgendes Makro wird ausgeführt wenn jeder MA. etwas in eine x beliebige Datei einträgt:


Sub Backup()
Application.ScreenUpdating = False
Dim Pfad As String
Dim urdatei
Set urdatei = ThisWorkbook
Dim Artikel As String
Dim Artikelnr As String
Dim Zeichnungsnummer As String
Dim Maschine As String
Dim xxx As String
Dim Bearbeitung As String
Dim Datum As String
Datum = ActiveSheet.Range("A19")
Bearbeitung = ActiveSheet.Range("E19")
xxx = ActiveSheet.Range("B19")
Maschine = ActiveSheet.Range("F19")
Zeichnungsnummer = ActiveSheet.Range("C19")
Artikelnr = ActiveSheet.Range("Artikelnummer")
Artikel = ActiveSheet.Range("Artikelbezeichnung")
Workbooks.Open Filename:= _
"K:\xxx\TEMP\Backupdatei.xlsx", Password:="xxx", WriteResPassword:="xxx"
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("A2") = Datum
ActiveSheet.Range("F2") = Bearbeitung
ActiveSheet.Range("C2") = xxx
ActiveSheet.Range("E2") = Maschine
ActiveSheet.Range("D2") = Zeichnungsnummer
ActiveSheet.Range("G2") = Artikelnr
ActiveSheet.Range("B2") = Artikel
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

Ich hätte gerne das die Backupdatei.xlsx gleichzeitig in diesem Makro gespiegelt wird in zb. Backupdatei2.xlsx und diese aber nur einen schreibschutz hat.
Die Backupdatei soll dazu dienen das MA. z.B. Aufträge nach Maschinen zu filtern können falls Sie mal was nachschauen müssen. Viel mehr zum zweck darf ich leider nicht sagen aber es hat nichts mit geheimhaltung zu tun!

Sub Backup() '...Dekalarationen Const cDateiName = "K:\xxx\TEMP\Backupdatei.xlsx" Application.ScreenUpdating = False '... lesen Workbooks.Open Filename:=cDateiName, _ Password:="xxx", WriteResPassword:="xxx" '...schreiben ActiveWorkbook.Save Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=Replace(cDateiName, ".xlsx", "_ReadOnly.xlsx"), WriteResPassword:="xxx" ActiveWorkbook.Close Application.DisplayAlerts = False Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread