Изменение диапазона защищенного листа после ввода данных в этот диапазон

Пользователь

Сообщений: 14 Регистрация: 25.02.2020

25.02.2020 09:56:37

Здравствуйте!
Хочу создать файл в общем доступе для 2-х сотрудников. Защитить лист и дать каждому из них доступ на изменение определенных диапазонов. К примеру Иванов - может вводить данные в диапазон A1:A100, а Петров - в B1:B100 - изначально все ячейки в этих диапазонах будут пустые.
Нужен такой макрос - чтобы после ввода данных в ячейку любым пользователем в допустимом ему диапазоне (например Иванов внес данные в ячейку A5) эта ячейка автоматически исключалась из разрешенного для изменения диапазона. Т.е. чтобы пользователь мог только один раз внести информацию в ячейку, а потом ее самостоятельно не мог отредактировать (без помощи админа файла).
Буду признателен за помощь! Спасибо!

CrazyRabbit

Пользователь

Сообщений: 218 Регистрация: 02.04.2015

25.02.2020 17:30:54

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    IName = Environ("UserName")
    Select Case IName
        Case "Иванов"
            If Not Intersect(Target, Range("A1:A100")) Is Nothing And IsEmpty(Target) Then
                Target.Locked = False
            Else
                Target.Locked = True
            End If
        Case "Петров"
            If Not Intersect(Target, Range("B1:B100")) Is Nothing And IsEmpty(Target) Then 
                Target.Locked = False
            Else
                Target.Locked = True
            End If
    End Select
End Sub

Изменено: CrazyRabbit - 25.02.2020 17:35:47