Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Блокирование строк (нельзя внести изминенения) "умной" таблицы через vba, Блокирование строк (нельзя внести изминенения) "умной" таблицы через vba, если текущая дата отличается от даты в строке
 
Господа помогите решить задачку
Блокирование строк "умной" таблицы через vba, если текущая дата отличается от даты в строке
 
Например так. В модуль нужного листа
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl As Range
Application.EnableEvents = False
For Each cl In Target.Cells
    With Me.ListObjects("Таблица1")
        If Not Intersect(cl, .DataBodyRange) Is Nothing And .DataBodyRange(cl.Row - .ListRows(1).Range.Row + 1, 1).Value <> Date Then
            Me.Cells(cl.Row, .ListColumns(.DataBodyRange.Columns.Count).Range.Column + 1).Select
            Exit For
        End If
    End With
Next
Application.EnableEvents = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
 
СПасибо
Страницы: 1
Читают тему (гостей: 1)