Automatisk ændre skrifttype farve

Funktionen hedder track changes i Engelsk Excel 2007 ligger den i menuen review.

Den er ikke lige så kompleks som det du beder om, da man skal acceptere før ændringerne ikke optræder længere, men en VBA som automatisk accepterer disse ved åbning eller lukning kunne nok løse dit ønske.

Filen kan evt. sendes - send en mail og jeg returnerer den. @-adresse under min profil.

Rem VBA-koden er indsat i Denne_projektmappe (ThisWorkbook)
Rem Der er oprettet en "CustomProperty" under navnet FarveKode
Rem Kan ses under Egenskaber / Avanceret Egenskaber
Option Explicit
Public farveKode, nyFarvekode
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If farveKode = 0 Then
        nyFarvekode = 255                          'rød
    Else
        nyFarvekode = 0                            'sort
    End If
   
    ActiveWorkbook.CustomDocumentProperties("Farvekode") = nyFarvekode
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
End Sub
Private Sub Workbook_Open()
    farveKode = ActiveWorkbook.CustomDocumentProperties("Farvekode")
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim adr
    adr = ActiveCell.Address
    Target.Select
    Selection.Font.Color = farveKode
    Range(adr).Select
End Sub

Kan det anvendes?

Hej Supertekst,
Det er for langhåret for mig at finde ud af.
Jeg beklager jeg ikke har svaret før, men jeg har været ude at rejse og har desværre ikke haft muligheden.
Dit tilbud og at jeg kan sende filen er meget generøs og jeg tror jeg vil bruge det, men jeg skal dog lige have tømt arket først, da det indeholder person følsomme data.

Hej benneton

Det er ok - du sender blot når du er klar