أخي الفاضل طارق
جرب الكود التالي
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Row > 6 Then
If Target.Column = 2 Then
If Target.Offset(, -1).Value <> CDate(Date) Then Target.Offset(, -1).Select
ElseIf Target.Column = 3 Then
If Target.Offset(, -2).Value <> CDate(Date) Then Target.Offset(, -2).Select
ElseIf Target.Column = 4 Then
If Target.Offset(, -3).Value <> CDate(Date) Then Target.Offset(, -3).Select
End If
End If
End Sub
Allow Editing Based On Today's Date.rar