Excel'de hücreleri tarihe göre nasıl koruyabilirsiniz?
Normalde, çalışma sayfasını koruyarak başkalarının hücre değerlerini düzenlemesini veya değiştirmesini önleyebiliriz. Ancak bazen hücreleri tarihe göre korumanız gerekir. Örneğin, diğer hücreleri korumak ancak yalnızca bugünün tarihine ait hücre değerlerinin aşağıdaki ekran görüntüsünde gösterildiği gibi değiştirilmesine izin vermek istiyorum. Bu makalede, hücreleri tarihe göre nasıl koruyacağınız anlatılacaktır.
Bugünün tarihine ait satır hariç tüm satırları VBA koduyla koruyun
Tarihi geçmiş tüm satırları VBA koduyla koruyun
Bugünün tarihine ait satır hariç tüm satırları VBA koduyla koruyun
Yalnızca bugünün tarihine eşit olan satırların düzenlenmesine izin vermek için aşağıdaki kod size yardımcı olabilir. Lütfen şu adımları izleyin:
1. Tarihe göre hücreleri korumak 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, lütfen aşağıdaki kodu boş bir modüle kopyalayıp yapıştırın:
VBA kodu: Bugünün tarihine ait satır hariç tüm satırları koru:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("E" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("E" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub
Not: Yukarıdaki kodda, E harfi tarihin bulunduğu sütun başlığıdır; “111111” ise bu sayfayı korumak için kullanılacak paroladır. Bunları ihtiyacınıza göre özelleştirebilirsiniz.
2. Ardından bu kod penceresini kaydedip kapatın.
(1.) Bugün tarihine ait satır dışındaki herhangi bir hücreye tıklarsanız, ilgili hücrenin düzenlenemeyeceğini hatırlatan bir uyarı kutusu görüntülenecektir. Ekran görüntüsüne göz atın:
(2.) Bugünün tarihine karşılık gelen satıra tıkladığınızda ve düzenleme yapmaya çalıştığınızda, değişiklikler başarıyla uygulanacaktır. Ekran görüntüsüne göz atın:
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
Tarihi geçmiş tüm satırları VBA koduyla koruyun
Eğer tarihi geçmiş tüm satırları korumak, yalnızca bugün ve gelecekteki tarihlere ait satırların değiştirilmesine izin vermek istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın:
1. Tarihe göre hücreleri korumak istediğiniz sayfa sekmesine sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüleseçeneğini belirleyin. Açılan Microsoft Visual Basic for Applicationspenceresinde, lütfen aşağıdaki kodu boş Modül’e kopyalayıp yapıştırın:
VBA kodu: Tarihi geçmiş tüm satırları koru:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 5))
If Cells(xRow, 5) < Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub
Not: Yukarıdaki kodda, 5 sayısı tarihin bulunduğu sütun numarasıdır; “111111” ise bu sayfayı korumak için kullanılacak paroladır. Bunları ihtiyacınıza göre değiştirebilirsiniz.
3. Ardından bu kod penceresini kaydedip kapatın.
(1.) Tarihi geçmiş içeren hücrelere tıklarsanız, hücrenin düzenlenemeyeceğini hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne göz atın:
(2.) Bugün veya gelecekteki tarihlere ait satırlardaki hücrelere tıklayıp değerleri değiştirmeye çalışırsanız, değişiklikleriniz başarıyla uygulanacaktır. Ekran görüntüsüne göz atı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