Unlock Column based on date

[CaWingz]

I've done tons of searching and have found things similar but can't get anything to work for columns. I do have the below code which unlocks rows based off a date in column A. but I need it to unlock columns based off dates in row 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("A" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("A" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub


Anyone know who to change this code to unlock columns?

Thanks
Robert

 

[bugmonsta]

hello,

This will check row 1 of the active column (using your same code as you posted).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, Selection.Column).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "NOOOOOOPE!"
ElseIf Cells(1, Selection.Column).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub

To test, enter various dates in row 1, make one of them todays date and go click happy!

 

[CaWingz]

Worked Perfect!! thanks!