Çalışma kitabını paylaşmadan değişiklikleri nasıl izleyebilirim?
Normalde Excel’de “Değişiklikleri İzle” özelliğini kullandığınızda çalışma kitabı otomatik olarak paylaşılır; bu da Excel’in bazı özelliklerinin devre dışı kalmasına neden olarak can sıkıcı hale gelebilir. Peki, çalışma kitabını paylaşmadan değişiklikleri nasıl izleyebilirsiniz? İşte size bunun için önerdiğim bir VBA kodu.
VBA kodu ile çalışma kitabını paylaşmadan değişiklikleri izleyin
Outlook’ta metni tabloya dönüştürme
Bu sorunu çözmek için doğrudan bir çözüm yoktur, ancak esnek bir VBA koduyla işinizi halledebilirsiniz. Lütfen aşağıdaki adımları uygulayın:
1. Değiştirilen hücreleri izlemek istediğiniz sayfa sekmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini belirleyin. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki kodu boş bir Modül bölümüne kopyalayıp yapıştırın:
VBA kodu: Çalışma kitabını paylaşmadan değişiklikleri izleme:
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ığı alanıdır.
2. Ardından bu kod penceresini kaydedip kapatın. Artık sınırlı aralıkta herhangi bir hücrenin değerini değiştirdiğinizde, değişiklikler çalışma kitabı paylaşılmadan izlenecektir. Ekran görüntüsüne bakın:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar