Здравствуйте. Есть макрос на защиту ячеек. Взят с темы. Работает на всю книгу, скажите пожалуйста, как сюда дописать название конкретного листа?
Код
Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If intersect(target,sh.range("A4:BM4")) is nothing then exit sub
With Application
.EnableEvents = 0: .Undo: .EnableEvents = 1
End With
End Sub
Удалите макрос из модуля ЭтаКнига и вставьте в модуль нужного листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4:BM4")) Is Nothing Then Exit Sub
With Application
.EnableEvents = 0: .Undo: .EnableEvents = 1
End With
End Sub
Согласие есть продукт при полном непротивлении сторон
Макрос не срабатывает когда копируешь значение в этот диапазон (ctrl+C - Ctrl+V) Когда просто вводишь значение - все хорошо, а вот при копировании - пропускает (
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.ListObjects(1).HeaderRowRange) Is Nothing Then
With Application
.EnableEvents = 0: .Undo: .EnableEvents = 1
End With
End If
End Sub
Согласие есть продукт при полном непротивлении сторон