Änderungen nachverfolgen mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo
Vielen Dank für die Rückmeldung und sorry für die späte Antwort.
Also im beiliegenden Workbook
https://www.herber.de/bbs/user/82102.xls
möchte ich, dass beim Öffnen der Datei automatisch der Modus "Änderungen nachverfolgen" gestartet wird, denn, wenn ich diesen Modus manuell starte, wird er beim Schliessen der Datei deaktiviert und beim wieder Öffnen nicht wieder gestartet.
Wenn ich den Aktivierungs-Vorgang mit dem Macrorecorder aufzeichne, bekomme ich dieses Resultat:
With ActiveWorkbook
.HighlightChangesOptions When:=xlNotYetReviewed, Where:="A7:L200"
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
End With
Wenn ich aber diese Prozedur in VBA ausführen will, bekomme ich eine Fehlermeldung.
Ich bin offensichtlich an die Grenzen meiner VBA Kenntnisse gestossen.
Viele Grüsse
Tinu

Sub testen() With Worksheets("Tabelle1").Range("A7:L280")'anpassen .HighlightChangesOptions When:=xlNotYetReviewed, where:="A7:L280" .ListChangesOnNewSheet = False .HighlightChangesOnScreen = True End With End Sub

Sub Track() With Worksheets("Tabelle1").Range("A7:L280") .HighlightChangesOptions When:=xlNotYetReviewed, where:="A7:L280" .ListChangesOnNewSheet = False .HighlightChangesOnScreen = True End With End Sub

Hallo Tinu,
da das Ganze sich in Verbindung mit einer freigegebenen Arbeitsmappe abspielt gibt verschiedene Ursachen für eine Fehlermeldung. Deshalb sollten ein paar Prüfungen eingebaut werden und die Warnmeldungen deaktiviert werden.
Gruß
Franz

Private Sub Workbook_Open()
With ActiveWorkbook
'Prüfen, ob Änderungen verfolgen aktiviert ist
If .MultiUserEditing = True Then
If .KeepChangeHistory = True Then
Application.DisplayAlerts = False
.Sheets("Tabelle1").Activate 'erforderlich, wenn mehrere Blätter vorhanden
.HighlightChangesOptions When:=xlNotYetReviewed, Who:="Jeder", Where:="A7:L280"
.ListChangesOnNewSheet = False
.HighlightChangesOnScreen = True
Application.DisplayAlerts = True
Else
MsgBox "Verfolgen der Änderungen ist nicht aktiviert!" & vbLf _
& "Änderungen können nicht angezeigt werden!", _
vbInformation + vbOKOnly, _
"Änderungen in Arbeitsmappe verfolgen"
End If
Else
MsgBox "Diese Datei ist zur Zeit nicht freigegeben!" & vbLf _
& "Änderungen können nicht angezeigt werden!", _
vbInformation + vbOKOnly, _
"Änderungen in Arbeitsmappe verfolgen"
End If
End With
End Sub

Sub Tracker() 'Änderungen nachverfolgen Dim filenametotal As String ActiveWorkbook.KeepChangeHistory = True ActiveWorkbook.ChangeHistoryDuration = 365 filenametotal = ActiveWorkbook.Worksheets("lies mich").Range("C27") Application.DisplayAlerts = False ActiveWorkbook.SaveAs filenametotal, FileFormat:=xlExcel8, AccessMode:=xlShared With ActiveWorkbook .HighlightChangesOptions When:=xlNotYetReviewed, Where:="A7:L5000" .ListChangesOnNewSheet = False .HighlightChangesOnScreen = True Application.DisplayAlerts = True End With End Sub

Beliebteste Forumthreads (12 Monate)

Änderungen nachverfolgen mit VBA

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Änderungen nachverfolgen mit VBA

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread