Запрет изменения ячейки по условию

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрет изменения ячейки по условию

pechkin

Дата: Воскресенье, 26.01.2014, 18:04 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 329

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

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

2003

Здравствуйте! Подскажите пожалуйста. Есть Макрос , который по изменению значения в ячейке В1 запускает другой Макрос. Как его дописать, чтобы он запрещал изменение старого значения (не давал выделить ячейку или как-то еще) , если при этом значение в другой ячейке (например G3) больше нуля,и как следствие, не запускал Макрос
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
       Dim rng As Range: Set rng = [B1]
      If Not Intersect(rng, Target) Is Nothing Then Макрос1
    End Sub

[/vba]
Спасибо!

Сообщение отредактировал pechkin - Воскресенье, 26.01.2014, 18:05

Ответить

Serge_007

Дата: Воскресенье, 26.01.2014, 22:28 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата pechkin, 26.01.2014 в 18:04, в сообщении № 1

не давал выделить ячейку

В модуль "Эта книга":[vba]

Код

Private Sub Workbook_Open()
    Worksheets("Лист1").Unprotect
       If Worksheets("Лист1").Range("g3") > 0 Then
          With Worksheets("Лист1")
              .Range("A1:Z1000").Locked = False
              .Range("B1").Locked = True
              .Protect
              .EnableSelection = xlUnlockedCells
          End With
       End If
End Sub

[/vba]

К сообщению приложен файл: pechkin_.rar (11.7 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запрет изменения ячейки по условию

Страница 1 из 1
1