Çalışma kitabını paylaşmadan değişiklikleri nasıl izleyebilirim?
Normalde, Excel'de Değişiklikleri İzle özelliğini uyguladığınızda, çalışma kitabı aynı anda paylaşılacaktır, bu can sıkıcı olacaktır çünkü Excel'deki bazı özellikler devre dışı bırakılacaktır. Çalışma kitabını paylaşmadan değişiklikleri nasıl takip edebilirsiniz? Burada sizin için bir VBA kodu önereceğim.
Çalışma kitabını VBA kodu ile paylaşmadan değişiklikleri izleyin
Outlook'ta metni tabloya dönüştürün
Bu sorunu çözmenin doğrudan bir yolu yoktur, ancak çözmek için esnek bir VBA kodu uygulayabilirsiniz, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Değiştirilen hücreleri izlemek istediğiniz sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boşluğa kopyalayıp yapıştırın modül:
VBA kodu: Çalışma kitabını paylaşmadan değişiklikleri izleyin:
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
not: Yukarıdaki kodda, A1: Z1000 değişiklikleri izlemek istediğiniz veri aralığıdır.
2. Ardından, bu kod penceresini kaydedin ve kapatın, şimdi, kodda ayarladığınız belirtilen aralıktaki herhangi bir hücredeki değerleri değiştirdiğinizde, hücreler izlenecek ve çalışma kitabı paylaşılmayacaktır. Ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!