Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("//выставите диапазон//")) Is Nothing Then Exit Sub With Application If .CutCopyMode Then .EnableEvents = False .Undo .EnableEvents = True MsgBox ("КОПИРОВАНИЕ ЗАПРЕЩЕНО") End If End With End Sub
Неплохо. Для инвентарников подойдет.
Благодарю! 👍🙏
Не плохо!
Выходит, что значение в конце '
Спасибо ! А на 5ти листах можно проверку по таблицам организовать как то ?
Супер
Попробовал, работает, но только если вносить данные вручную. Если через копировать-вставить, то пропускает дубликаты.
Можно макрос написать, чтобы при нажатии CTRL+C появлялась ошибка.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("//выставите диапазон//")) Is Nothing Then Exit Sub
With Application
If .CutCopyMode Then
.EnableEvents = False
.Undo
.EnableEvents = True
MsgBox ("КОПИРОВАНИЕ ЗАПРЕЩЕНО")
End If
End With
End Sub
а можно такой способ применить к умным таблицам?
можно применить и к умным таблицам. Только диапазон в формуле пишите формата - $A$2:$A$20
Открыл Ютуб, а тут этот ролик, и на превьюшке фотка. Думаю, а что здесь делаю я??
Пипец ты на меня похож ))))
Проще Access освоить...