VBA блокировка ячеек кнопкой

[johny_03]

необходимо в VBA кнопкой заблокировать несколько ячеек.
Т.е. кнопка "заблокировать" и кнопка "разблокировать", чтобы потом можно было ввести другие данные.
Вариант Сервис-Защита-Защитить лист не подходит.
Заранее спасибо за помощь!

[Dog_DinGo]

Чем тебе не подходить команда защитить лист?

[The_Prist]

Сообщение от johny_03

Вариант Сервис-Защита-Защитить лист не подходит.

Может Вы просто не в курсе, что вот так можно?

[IgorGO]

см.вложение
если на кнопке написано "ЗаБлокировать" значит сейчас серые ячейки разблокированы и можно их править как угодно.
и наоборот:
если на кнопке написано "РазБлокировать" значит сейчас серые ячейки заблокированы данные в них изменить нельзя.

[johny_03]

Сообщение от IgorGO

см.вложение
если на кнопке написано "ЗаБлокировать" значит сейчас серые ячейки разблокированы и можно их править как угодно.
и наоборот:
если на кнопке написано "РазБлокировать" значит сейчас серые ячейки заблокированы данные в них изменить нельзя.

пишет Methd "Add" of Object "Validation" falled

[IgorGO]

а Вы не успели случайно лист защитить? что ни разу не сработало?
там кода, то 10 строк:

Private Sub CommandButton1_Click()
  With Range("C2:C4").Validation
  If ActiveSheet.CommandButton1.Caption = "ЗаБлокировать" Then
    ActiveSheet.CommandButton1.Caption = "РазБлокировать"
    .Delete
    .Add xlValidateCustom, xlValidAlertStop, xlBetween, False
  Else
    ActiveSheet.CommandButton1.Caption = "ЗаБлокировать"
    .Delete
  End If
  End With
End Sub

[johny_03]

Сообщение от IgorGO

а Вы не успели случайно лист защитить? что ни разу не сработало?
там кода, то 10 строк:

Private Sub CommandButton1_Click()
  With Range("C2:C4").Validation
  If ActiveSheet.CommandButton1.Caption = "ЗаБлокировать" Then
    ActiveSheet.CommandButton1.Caption = "РазБлокировать"
    .Delete
    .Add xlValidateCustom, xlValidAlertStop, xlBetween, False
  Else
    ActiveSheet.CommandButton1.Caption = "ЗаБлокировать"
    .Delete
  End If
  End With
End Sub

нет, не защищен лист, я уже новый создал, заново прописал, все-равно пишет ошибку в строке:

.Add xlValidateCustom, xlValidAlertStop, xlBetween, False

[IgorGO]

офис 2003? у меня 2007
пробуйте так:

.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=        xlBetween, Formula1:="=ложь"

[johny_03]

Сообщение от IgorGO

офис 2003? у меня 2007
пробуйте так:

.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=        xlBetween, Formula1:="=ложь"

Да, 2003. Но и так тоже не хочет

[IgorGO]

ладно. пойдем другим путем.
идея была такова: ставлю на группу ячеек проверку на ввод данных. ставлю такое условие проверки, которое не выполнится не при каких условиях.
придумайте такое условие, запишите свои действия макрорекордером и поставьте вместо того .add что я написал.
все получится