Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim N As Long
N = Target.Row
If Target.Rows.Count > 1 Then
Cells(N, 1).Select: Exit Sub
End If
If Cells(N, 1) <> Int(Now) Then
Cells(N, 1).Select: Exit Sub
End If
End Sub
Pak bude možné vybrat buňky pouze v řádku s dnešním datem. Výběr v jiných řádcích povede vždy do sloupce A vybraného řádku.citovat