Track Changes

Er din fil delt, inden du laver dette nummer?
trackchanges virker nemlig kun på delte filer

Delte felter??

Når jeg optager en macro, så gør den som jeg vil, men det er ikke muligt at afspille macroen igen??

Det er det som er problemet....

Sorry.. Det er det, men jeg vil jo også gerne kunne styre det via VBA, kan man ikke det.

Din makro kører fint hos mig, men kun hvis man under FUNKTIONER har delt (Shared) filen først. Vær opmærksom på at når filen først er DELT er det ikke længere muligt at redigere i vba-koden.

OK. Men kan man ikke klare det hele fra VBA?

Det kan jeg bare ikke få til at virker.
Kan du komme med mere hjælp?

Så prøv lige denne her. Den deler først. (xlShared)

Sub track()
    With ActiveWorkbook
        .SaveAs , , , , , , xlShared
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 3000
        .HighlightChangesOptions _
        When:=xlSinceMyLastSave, _
        Who:="Everyone"
        .ListChangesOnNewSheet = True
  End With
End Sub

Tænk lige på at hvis du virkelig ønsker at gøre det her, så giver det nogle restriktioner i regnearket fx.
Det er ikke muligt AKTIVT at bruge pivottabeller, dvs man kan se dem men ikke bruge dem.
Man kan ikke se/redigere vba-koden
samt et par andre småting

Det er fint, og mange tak for det :-)
Men hvorfor bliver der ikke oprettet et nyt ark til track changes???

Pas pas pas.....

Nu er jeg bare pas.
Filen er shared, og jeg kan godt starte track changes manuelt. Men jeg kan ikke starte den fra VBA.
Kan du skrive en hvor begge funktioner er skrevet og startet fra vba?

Hvorfor skal den startes via vba?

Fordi arket altid skal køre den funktion, og det er den eneste måde jeg kender hvori man kan bestemme det.

Vil du ha' makroen et et seperat regneark (fx. person.xls) eller skal den ligge i selve det sharede regneark ?

En måde at sørge for den altid køres er at anbringe denne makro i modulet
thisworkbook (inden du sharer)
Private Sub Workbook_Open()
Call Track
End Sub

og Track() skal lige ændres lidt

Sub track()

    With ThisWorkbook              'her er ændret
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 3000
        .HighlightChangesOptions _
        When:=xlSinceMyLastSave, _
        Who:="Everyone"
        .ListChangesOnNewSheet = True
  End With
End Sub

Kan du få det til at virke?
Hvis ja, har du en fil hvori det virker?

Jooo, email ?

SUPER...


jkmi@novonordisk.com

sendt

bak>> vil du sende den til mig også.

Selvfølgelig Flemming, men først imorgen tidligt.

Og så lige et svar.....

Tak bak, det var helt kanon.