Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe wijzigingen bijhouden zonder een werkmap te delen?

Normaal gesproken, wanneer u de functie Wijzigingen bijhouden in Excel toepast, wordt de werkmap tegelijkertijd gedeeld, dit zal vervelend zijn omdat sommige functies in Excel worden uitgeschakeld. Hoe kunt u wijzigingen bijhouden zonder een werkmap te delen? Hier zal ik een VBA-code voor je aanbevelen.

Houd wijzigingen bij zonder een werkmap te delen met VBA-code


pijl blauw rechts bel Converteer tekst naar tabel in Outlook

Er is geen directe manier om dit probleem op te lossen, maar u kunt een flexibele VBA-code toepassen om het op te lossen, doe dit als volgt:

1. Klik met de rechtermuisknop op de bladtab waarvan u de gewijzigde cellen wilt volgen, en kies Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege ruimte Module:

VBA-code: houd wijzigingen bij zonder een werkmap te delen:

Private Sub Worksheet_Change(ByVal Target As Range)
  'Updateby Extendoffice
    Const xRg As String = "A1:Z1000"
    Dim strOld As String
    Dim strNew As String
    Dim strCmt As String
    Dim xLen As Long
    With Target(1)
        If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
        strNew = .Text
        Application.EnableEvents = False
        Application.Undo
        strOld = .Text
        .Value = strNew
        Application.EnableEvents = True
        strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY hh:nn:ss") & " by " & _
        Application.UserName & Chr(10) & "Previous Text :- " & strOld
        If Target(1).Comment Is Nothing Then
            .AddComment
        Else
            xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
        End If
        With .Comment.Shape.TextFrame
            .AutoSize = True
            .Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
        End With
    End With
End Sub

doc-track wijzigen zonder te delen 1

Opmerking:: In de bovenstaande code, A1: Z1000 is het gegevensbereik dat u wijzigingen wilt bijhouden.

2. Sla vervolgens dit codevenster op en sluit het. Wanneer u de waarden in cellen binnen het opgegeven bereik dat u in de code instelt, wijzigt, worden de cellen bijgehouden en wordt de werkmap niet gedeeld. Zie screenshot:

doc-track wijzigen zonder te delen 2


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kuldeep · 1 years ago
    I tried using this VBA code in my excel sheet. But it gave me errors. I don't know from where this macro should be called and what is the argument to the function you have provided when it is called.
  • To post as a guest, your comment is unpublished.
    Sam · 4 years ago
    Great work. Unfortunately, there are some issues with your code.
    - It will add a comment even on the first entry of the cell. How can I make it track changes from the second entry not the first one?
    - Once I enter a value in a cell I can't do "Undo".
    - It doesn't work with tables. Try to use on a table then try to add or delete a raw and the code will crash.

    I really wish I have the knowledge to get the code to work the way I want it as described above.
    • To post as a guest, your comment is unpublished.
      Gabe · 3 years ago
      I have the same issue. "Undo" and "Redo" buttons don't work anymore. Is there any solution for this?