Tarih küçükse Hücre Silinmemesi Makrosu

[korhan1981]

Benim İstediğim eğer soldaki hücrenin tarihi bugünden küçük ise diğer hücrelerin silinmesini önleyecek kodları öğrenmek. Ek'teki dosyayı incelerseniz sevinirim. Yardımı geçen herkese şimdiden teşekkürler...

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları, Thisworkbook Kod modülüne kopyalayınız.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("Sayfa1").Protect
End Sub
'--------------------------------------------
Private Sub Workbook_Open()
    Dim wks As Worksheet
    Dim rng As Range
    Dim rngHcr As Range
    Set wks = Sheets("Sayfa1")
    wks.Unprotect
    With wks
        .UsedRange.Locked = False
        Set rng = .Range("A" & .UsedRange.Row & ":A" & .UsedRange.Rows.Count)
        For Each rngHcr In rng.Cells
            If IsDate(rngHcr) Then
                If rngHcr < Date Then
                    rngHcr.Locked = True
                    rngHcr.Offset(0, 1).Locked = True
                End If
            End If
        Next
    End With
    wks.Protect
    Set rngHcr = Nothing
    Set rng = Nothing
    Set wks = Nothing
End Sub

 

[korhan1981]

Çok teşekkürler hocam. Dün işe yarıyodu bugün işe yaramıyo. Ayın 7'sindeki bilgileri silebiliyorum.