Объединить два Worksheet_Change в один!

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Объединить два Worksheet_Change в один! - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Объединить два Worksheet_Change в один! (Формулы/Formulas)

Объединить два Worksheet_Change в один!

User0337

Дата: Пятница, 13.05.2022, 10:23 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 40% ±

Всем доброго времени суток! Подскажите пожалуйста как объединить два два Worksheet_Change в один! Первый отвечает за защиту ячейку после ввода, второй учет времени когда был ввод данных в ячейку.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("F5:H1048576"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Row > 1 And Not IsEmpty(Target.Value) Then _
Target.Offset(0, -1).Value = Now

End Sub

[/vba]