protecting cels based on its values possible?

In column A listed are the dates. I want to protect those rows that are < the current date. I am making a ledger using excel and I don't want user to edit data which was encoded prior to the present date. Is this possible?

try This,

Sub Button1_Click()

    Dim r As Range
    Dim c As Range
    ActiveSheet.Unprotect

    Cells.Locked = False
    Set r = Range("A1", Range("A65536").End(xlUp))

    For Each c In r.Cells

        If c < Now - 1 Then
            c.EntireRow.Locked = True
        End If

    Next c

    ActiveSheet.Protect

End Sub

Sub Button1_Click()

    Dim r As Range
    Dim c As Range
    ActiveSheet.Unprotect Password:="Password"


    Cells.Locked = False
    Set r = Range("A1", Range("A65536").End(xlUp))

    For Each c In r.Cells

        If c < Now - 1 Then
            c.EntireRow.Locked = True
        End If

    Next c

    ActiveSheet.Protect Password:="Password"

End Sub

Check out going to VBA editor, tools,vbaProperties

Originally Posted by chrisumali

Thanks DAVESEXCEL!

Ok everything is fine up to now, But one more thing. How this macro run every time user exists excel? or a macro with dialog box that will pop-up before closing saying, "You are about to exit, any entries you have made will become final and will not be edited except through authorized adjustments" then pressing ok will run the previous Macro protecting the Cell,

Thanks Good there is you willing to give me a hand...

This statement would not be true, if the workbook was opened again on the same day.
You could activate the code on the workbook_open event .
Or the
Worksheet_selectionChange event.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    Dim c As Range
    ActiveSheet.Unprotect Password:="Password"


    Cells.Locked = False
    Set r = Range("A1", Range("A65536").End(xlUp))

    For Each c In r.Cells

        If c < Now - 1 Then
            c.EntireRow.Locked = True
        End If

    Next c

    ActiveSheet.Protect Password:="Password"


End Sub

Right click on the sheet tab and select view code, paste the code there.
Not tested, just assuming it will work.