Ved ændring i en celle - skift farve

Med VBA kan du få markeret enhver ændring med en baggrundsfarve - hvis det siger dig noget.

og så velkommen til Eksperten..

Til inspiration:

http://www.eksperten.dk/spm/815376

har aldrig brugt VBA så det kræver nok undervisning så! Troede jeg kunne gøre noget med conditional formatting....ØV

Tak det læses som om det er det som jeg skal have, men hvad kræver det af min fil?

Filen skal gemmes som macro-enabled, men ellers andet? Skal sheetet være protected eller noget?

heidi

Tusind tak håber jeg kan lære af alle jer kloge her...

Hej hvordan får jeg det ind i mit excelark, jeg ved godt hvor jeg finder VBA, men tilføjer jeg eksemplet skal jeg lige ændre i Range, da mit ark består af flere celler som skal farveændres hvis der sker en ændring i dem.
Jeg prøve at ændre range fra H til B, da mine celler begynder der men hjalp ikke..hilfe!!

Excel 2010:
Review -> Track Changes -> Highlight Changes

VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1:IV1000")) Is Nothing Then
      Cancel = True
      With Target
      With .Interior
        .ColorIndex = 6            'Gul baggrund
        .Pattern = xlSolid
        End With
      End With
    End If
End Sub

Tak for det det virker, men nu er det sådan at hvis man har en master file, så skal den jo ikke starte med at have de farvede felter fra start af.
Hvis man udfylder første gang skal den ikke farves, først når der kommer en ændring anden gang arket udfyldes...hvad gør man så?
heidi

Fint nok..

PS: Et praktisk vink - SVAR anvendes kun af forslagsstillere, hvis denne har et løsningsforslag, der kunne være et svar - ikke af opgavestilleren. Anvend kun KOMMENTAR eller ACCEPTER som opgavestiller.
(men det har til alle tider været et problem - du er hverken den første eller sidste..) :-)

Sorry, first time!

Det skal du som sagt ikke være......

Velan - hvilken officeversion anvender du?

Den indbyggede egenskab "NøgleOrd" forventes blank ved oprettelse
Når der gemmes - indsættes teksten "Er i brug"

Koden i ThisWorkbook:
Public nøgleOrdByOpen As String
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ActiveWorkbook.BuiltinDocumentProperties("Keywords") = "Er i brug"
End Sub
Private Sub Workbook_Open()
    nøgleOrdByOpen = ActiveWorkbook.BuiltinDocumentProperties("Keywords")
End Sub


Koden unxder Ark:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1:IV1000")) Is Nothing Then
        If ThisWorkbook.nøgleOrdByOpen <> "" Then
            Cancel = True
            With Target
                With .Interior
                    .ColorIndex = 6            'Gul baggrund
                    .Pattern = xlSolid
                  End With
            End With
        End If
    End If
End Sub

Jeg har Office 2010.
Jeg prøver dette!
Tak

Ok..

Se evt.
Registrere ændringer i en delt projektmappe
http://office.microsoft.com/da-dk/excel-help/registrere-aendringer-i-en-delt-projektmappe-HP010342961.aspx

Hvordan lukker jeg denne tråd når jeg har fundet en løsning?

Beskriv din løsning - afvis evt. andres svar - læg selv et svar og accepter dette..

Ups - du har accepteret mit svar - så er der "lukket".