Excel'de hücreleri tarihe göre nasıl korursunuz?

Normalde, başkalarının hücre değerlerini düzenlemesini veya değiştirmesini önlemek için çalışma sayfasını koruyabiliriz. Ancak bazen hücreleri tarihe göre korumanız gerekebilir. Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, diğer hücreleri korumak ancak yalnızca bugünün tarihine ait hücre değerlerinin değiştirilmesine izin vermek istiyorum. Bu makalede, hücreleri tarihe göre nasıl koruyacağınız anlatılacaktır.

VBA kodu ile bugünün tarihli satır hariç tüm satırları koruyun

VBA kodu ile geçmişte kalan tüm satırları koruyun

VBA kodu ile bugünün tarihli satır hariç tüm satırları koruyun

Yalnızca bugünün tarihine eşit olan satırın değiştirilmesine izin vermek için aşağıdaki kod size yardımcı olabilir, lütfen şu adımları izleyin:

1. Tarih temelinde hücreleri korumak istediğiniz çalışma sayfası sekmesine sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle'yi seçin. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki kodu boş Modül'e kopyalayıp yapıştırın:

VBA kodu: Bugünün tarihli satır hariç tüm satırları koruyun:

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, harf E, tarihin bulunduğu sütun başlığıdır, “111111” bu sayfayı korumak için kullanılan şifredir. Bunları ihtiyaçlarınıza göre değiştirebilirsiniz.

2. Ardından bu kod penceresini kaydedip kapatın.

(1.) Bugünün tarihli satır dışındaki diğer hücrelere tıklarsanız, hücrenin düzenlenemeyeceğini belirten bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

(2.) Bugünün tarihine eşit olan satıra tıklayıp düzenlerseniz, başarıyla değiştirilecektir, aşağıdaki ekran görüntüsüne bakın:

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

VBA kodu ile geçmişte kalan tüm satırları koruyun

Geçmişte kalan tüm satırları korumanız ve yalnızca bugün ve gelecek tarihli satırların değiştirilmesine izin vermeniz gerekiyorsa, lütfen aşağıdaki VBA kodunu uygulayın:

1. Tarih temelinde hücreleri korumak istediğiniz çalışma sayfası sekmesine sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle'yi seçin. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki kodu boş Modül'e kopyalayıp yapıştırın:

VBA kodu: Geçmişte kalan tüm satırları koruyun:

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, sayı 5, tarihin bulunduğu sütun numarasıdır, “111111” bu sayfayı korumak için kullanılan şifredir. Bunları ihtiyaçlarınıza göre değiştirebilirsiniz.

3. Ardından bu kod penceresini kaydedip kapatın.

(1.) Geçmişte kalan tarihli hücrelere tıklarsanız, hücrenin düzenlenemeyeceğini belirten bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

(2.) Bugünün veya gelecekteki tarihli satırlardaki hücrelere tıklayarak değerleri değiştirmeye çalışırsanız, başarıyla değiştirilecektir, aşağıdaki ekran görüntüsüne bakın: