Markos in gemeinsam benutzter Datei
Felix
Hallo,
Ich habe eine Datei, an der mehrere Personen arbeiten, wo ich ich die Änderungen genau protokollieren möchte. Ich benutze dazu die "Änderungen nachverfolgen" Funktion.
Mit dieser Funktion kann man ein Protokoll in einem neuen Sheet erstellen. Leider zeichnet dieses nur die Änderungen auf, die gerade gemacht wurden, nicht die, die von jemand anderen davor gemacht wurden.
Ich möchte daher das von Excel automatisch erstelle Arbeitsblatt per Makro sichern. Hier ist mein zusammen gebastelter Code:
Sub Macro1()
'Änderungen nachverfolgen im Workbook
With ActiveWorkbook
.HighlightChangesOptions When:=xlAllChanges
.ListChangesOnNewSheet = True
.HighlightChangesOnScreen = True
End With
'kopiere das Protokoll in ein neues Arbeitsblatt
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = Worksheets("History").Range("B2").Value & "protokoll"
ws.Range("a1:Z999").Value = Worksheets("History").Range("A1:Z999").Value
'Beende das "shared workbook" damit das Macro funktioniert
ActiveWorkbook.ExclusiveAccess
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\koehlerf\Desktop\temp\TOP Action List TQ Mar11_test2.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Kann das, was ich grundsätzlich machen möchte überhaupt funktionieren?
Vielen Dank für die Hilfe!
Felix