Удаление добавление защищенных строк с условием

[normres]

Здравствуйте.

Подскажите как макросом удалить строку защищенного листа?
Удаление происходит в диапазоне столбца начиная с ячейки В9 и заканчивая ячейкой столбца В в которой вписана точка "." Точка является координатой не постоянной и меняет положение по строкам при удалении и добавлении строк и поэтому является в тоже время координатой для написания макроса. Удаление происходит лишь тех строк, которые являются пустыми в данном диапазоне столбца.
Далее как другим макросом добавить строку над точкой дублируя строку над ячейкой с координатой точка "."

[IgorGO]

Sub DelBlankRow()
  Const psw As String = "пароль"
  With ActiveSheet
    .Unprotect psw
    Range(.Cells(9, 2), .Columns(2).Find(".")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    .Protect psw
  End With
End Sub


Sub AddRowAbove()
  Const psw As String = "пароль"
  With ActiveSheet
    .Unprotect psw
    .Columns(2).Find(".").EntireRow.Insert shift:=xlDown
    .Protect psw
  End With
End Sub

[kuklp]

Дык, можно защитить с userinterfaceonly = true один раз и делай с ним, что хошь

[kuklp]

Кросс: http://www.planetaexcel.ru/forum/ind...ID=1&TID=51812

[normres]

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

Sub DelBlankRow()
  Const psw As String = "пароль"
  With ActiveSheet
    .Unprotect psw
    Range(.Cells(9, 2), .Columns(2).Find(".")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    .Protect psw
  End With
End Sub


Sub AddRowAbove()
  Const psw As String = "пароль"
  With ActiveSheet
    .Unprotect psw
    .Columns(2).Find(".").EntireRow.Insert shift:=xlDown
    .Protect psw
  End With
End Sub

Тестирую код на удаление

Sub DelBlankRow()
  Const psw As String = "пароль"
  With ActiveSheet
    .Unprotect psw
    Range(.Cells(9, 2), .Columns(2).Find(".")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    .Protect psw
  End With
End Sub

Выдает ошибку на данную строку

"Данная команда не приемлема для перекрывающихся диапазонов."

Range(.Cells(9, 2), .Columns(2).Find(".")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

[VictorM]

не знаю, что там у Вас, у меня эта этот код работает и ошибок не выдает.
Проверил

[normres]

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

не знаю, что там у Вас, у меня эта этот код работает и ошибок не выдает.
Проверил

Ну часть ячеек (не беру во внимание столбец 2) удаляемой строки заполнены данными и выходит вот такая ошибка.
"Данная команда не приемлема для перекрывающихся диапазонов."
Возможно из за этого...

[VictorM]

Возможно из за этого...

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

[normres]

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

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

Да нет разобрался, в столбце 2 у меня установлены списки хоть они и пустые но выдается ошибка

"Данная команда не приемлема для перекрывающихся диапазонов."

изменил кода на столбец 1.

Range(.Cells(9, 1), .Columns(1).Find(".")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Заработало.
Теперь другая ошибка если все ячейки уже столбца 1 заполнены то при тестировании идет противоречие на удаление и код выдает ошибку, то есть при заполненных ячейках выдается ошибка.

"Не найдено не одного условия, указанным условиям."

Как обойти данный момент.

[normres]

Или наверное поставить сообщение...
Если ячейки заполнены то выходит сообщение MsgBox
Что мол удаление возможно при пустых ячейках первой колонки, далее ОК и ничего не происходит.
Как его всунуть в код?