Unprotect column depending on day of month

[brianfosterblack]

I have a password protected worksheet which when I open enters the day of the month in cell c1 (This is a formula in cell C 1 which just gives the date by today but showing the day only)
I then have columns where in row 2 I have the column header for each day of the month (1 - 31)
When I open the worksheet I want to unprotect only the column for the current day of the month
This is so the employee can enter information in the column for today but cannot go back and change historical information.
When I leave the sheet it must protect everything on the sheet again.
Can you help with this code.

 

[kanadaaa]

Try this in the sheet's module:

Private Sub Worksheet_Activate()
    Dim r As Range
    Set r = Range("2:2").Find(Range("C1").Value, , xlValues, xlWhole)
    Me.Unprotect Password:="1234"
    r.EntireColumn.Locked = False
    Me.Protect Password:="1234"
End Sub

Private Sub Worksheet_Deactivate()
    Me.Unprotect Password:="1234"
    Cells.Locked = True
    Me.Protect Password:="1234"
End Sub

Anyway,

I have a password protected worksheet which when I open enters the day of the month in cell c1 (This is a formula in cell C 1 which just gives the date by today but showing the day only)

This is done not by a code but by a formula like below right?

=DAY(TODAY())

 

[brianfosterblack]

Try this in the sheet's module:

Private Sub Worksheet_Activate()
    Dim r As Range
    Set r = Range("2:2").Find(Range("C1").Value, , xlValues, xlWhole)
    Me.Unprotect Password:="1234"
    r.EntireColumn.Locked = False
    Me.Protect Password:="1234"
End Sub

Private Sub Worksheet_Deactivate()
    Me.Unprotect Password:="1234"
    Cells.Locked = True
    Me.Protect Password:="1234"
End Sub

Anyway,

This is done not by a code but by a formula like below right?

=DAY(TODAY())

Thanks this works perfectly. The day is provided by a formula in C1 as you show it above

 

[kanadaaa]

Thanks this works perfectly

Glad I could help and thanks for the feedback