блокировать ячейку с формулой

[IgorGO]

slan, я скопировал ячейку с данными в ячейку с формулой и затер ее

Sub RrotectFormula()
  Dim c As Range
  ActiveSheet.Unprotect
  For Each c In Cells
    c.Locked = c.HasFormula
  Next
  ActiveSheet.Protect
End Sub

[slan]

спасибо , добрый человек!

но задача стояла не защитить от злоумышленников, а только от случайного затирания. Да к тому же и с возможностью редактирования формулы. А защита листа была прямо отвергнута заказчиком..

Так я и сам знаю, мне надо именно макрос.

[slan]

кроме того - более эффективно будет:

Sub prtf()
On Error Resume Next
Cells.Locked = False
Cells.SpecialCells(xlCellTypeFormul as).Locked = True
ActiveSheet.Protect
End Sub

ибо все ячейки по-умолчанию имеют статус защищаемых и его как раз надо снять, а потом уже защитить формулы

но и на это найдется, наверное, лом..

[IgorGO]

согласен, это

Cells.Locked = False
Cells.SpecialCells(xlCellTypeFormulas).Locked = True

выглядит гораздо привлекательнее моего цикла, а выполняться должно просто гораздо быстрее.
только вместо On Error Resume Next надо бы оставить ActiveSheet.Unprotect. Если лист на входе в процедуру уже защищен, то состояние ячеек (защищенные/незащищинные) не поменяется.

[SAS888]

On Error Resume Next нужно для случая, если ячеек с формулами на листе нет.

[Raikhman]

Есть более простой способ избежать попадания курсора в "ненужную ячейку"
Надо защитить лист, и при этом запретить выделение заблокированных ячеек. Естественно, ячейки с формулами должны оставаться защищенными, а ячейки с полями ввода данных - незащищенными. Защита листа включена. Тогда курсор просто не попадет в защищенные ячейки.
Такая штука работает, помоему, только с 2003 версии и выше.

[Disel]

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

Есть более простой способ избежать попадания курсора в "ненужную ячейку"
Надо защитить лист, и при этом запретить выделение заблокированных ячеек. Естественно, ячейки с формулами должны оставаться защищенными, а ячейки с полями ввода данных - незащищенными. Защита листа включена. Тогда курсор просто не попадет в защищенные ячейки.
Такая штука работает, помоему, только с 2003 версии и выше.

От такого способа отказались в данной теме, надо читать с начала!!!

[ok`sana]

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

Если, не изменяя значение в ячейке, нажимать Enter, будут выделяться ячейки с формулами...

В Вашем примере надо хотя бы заменить Worksheet_Change на Worksheet_SelectionChange.

Но тогда не получится выделить диапазон ячеек, начиная с ячейки с формулой...



В моём примере, если осуществлён переход на ячейку с формулой, макрос сработает снова и снова - до тех пор, пока не попадётся ячейка без формулы.

Но вот насчёт использования свойства HasFormula полностью согласен (забыл про существование формул массивов)

Я бы остановился на таком варианте:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then If Target.HasFormula Then Target.Offset(1).Select
End Sub

Спасибо большое, макрос работает!!! Но если есть скрытые строки - в них "тонет"-бросьте, пожалуйста спасательный круг.

[ok`sana]

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

Есть более простой способ избежать попадания курсора в "ненужную ячейку"
Надо защитить лист, и при этом запретить выделение заблокированных ячеек. Естественно, ячейки с формулами должны оставаться защищенными, а ячейки с полями ввода данных - незащищенными. Защита листа включена. Тогда курсор просто не попадет в защищенные ячейки.
Такая штука работает, помоему, только с 2003 версии и выше.

Спасибо, что откликнулись на призыв о помощи, но суть вопроса в том, что цифры в столбец забиваются "вслепую", а если ячейка просто защищена и в неё что-то забиваешь-высвечивается окно сообщений и не пускает продвигаться дальше-можно лупить по клавишам до потери пульса, а стоишь на месте, пока не посмотришь на экран.Не подходит.

[asrwer]

Помогите, кто нибудь, нужно заблокировать некоторые ячейки с формулами, чобы их никто не затер.
заранее спасибо