макрос для защиты ячеек от изменения

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

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

макрос для защиты ячеек от изменения (Макросы Sub)

Timsan

Дата: Понедельник, 11.11.2013, 16:45 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2003

Здравствуйте.имеится макрос для защиты ячеек от изменения
Как можно сделать его компактней ???
Нужно защитить Range A1:S44

Вот сам макрос
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$21" Or Target.Address = "$D$21"
Or Target.Address = "$E$21" Or Target.Address = "$F$21"
Or Target.Address = "$G$21" Or Target.Address = "$H$21"
Or Target.Address = "$D$21" Or Target.Address = "$E$21"
Or Target.Address = "$F$21" Or Target.Address = "$G$21"
Or Target.Address = "$G$21" Or Target.Address = "$H$21" Then
     Application.EnableEvents = False
     Application.Undo
     Application.EnableEvents = True
End If
End Sub

[/vba]

Ответить

KuklP

Дата: Понедельник, 11.11.2013, 17:05 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Гы), так достаточно компактно?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C21:H21]) Is Nothing Then _
With Application: .EnableEvents = 0: .Undo: .EnableEvents = -1: End With
End Sub

[/vba]