Страницы: 1
RSS
Разрешение на внесение данных но запрет на удаление
 
Всем добрый день.

Вопрос собственно в чем, есть отчет в который вносят данные разные люди, и кто то удаляет данные другого человека, так вот тут и вопрос, можно ли сделать так чтобы внесенные данные нельзя было удалить, или как минимум что бы они копировались и переносились как копия в другой отчет откуда бы не удалялись если даже их удалили в исходнике
Изменено: vikttur - 15.09.2021 15:59:03
 
veter9191, можно что бы копировались)
Изменено: Mershik - 15.09.2021 15:48:02
Не бойтесь совершенства. Вам его не достичь.
 
В модуль листа.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cl As Range
    For Each cl In Target.Cells
        If Not IsEmpty(cl) Then
            If Target.Row + Target.Rows.Count < Rows.Count Then
                Cells(Target.Row + Target.Rows.Count, Target.Column).Select
            Else
                Cells(1, 1).Select
            End If
            Exit For
        End If
    Next
End Sub
Эта защита от случайного заполнения, при желании можно обойти.
 
Цитата
Mershik написал:
Worksheet_SelectionChange
Копировалась и не удалялось даже если удалено в исходнике?  
 
Как вариант:
 
открыл файл, удалил 2 строки из 3-х
не понял что там запрещено удалять(((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко,
Вашу энергию бы в мирных целях...
Страницы: 1
Наверх