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

[VictorM]

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

Самое простое
On Error Resume Next

[normres]

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

Самое простое
On Error Resume Next

Сейчас нормалек, буду второй код тестировать.

[normres]

При обработке ошибки оператором On Error Resume Next
код не выполняется. Куда вывести код сообщения MsgBox для пользователя чтобы он понял почему не выполнился код?

Sub DelBlankRow()
On Error Resume Next
  
  Const psw As String = "пароль"
  With ActiveSheet
    .Unprotect psw
    Range(.Cells(10, 1), .Columns(1).Find(".")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    .Protect psw
  End With
End Sub

[maksim_serg]

Sub DelBlankRow()
Err.Clear: On Error Resume Next

' код....

If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

[EducatedFool]

чтобы он понял почему не выполнился код?

если обрабатывать все возможные ошибки, кода будет намного больше.
оно вам надо?

Возможные ошибки в вашем макросе:
1) нет активного листа (книга не открыта)
2) активный лист не является рабочим листом (например, лист диаграммы)
3) не удалось снять пароль с листа (например, пароль неверный)
4) не удалось найти точку в первом столбце
5) между точкой и 10-й строкой нет пустых ячеек
6) код запускается из модуля листа, а активен другой лист (нет точки перед Range)

[segail]

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

При выполнении данного кода

добавить строку над точкой дублируя строку над ячейкой с координатой точка "."

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

Строка добавляется, но как дополнить код, чтобы добавлялся формат впереди стоящей строки и формулы.
1. Формат строки это границы, если точней то вертикальные простые толсты по горизонтали простые тонкие.
2. Формулы это ячейки впереди стоящей строки столбцов 36, 37, 38, 39, 41

[kuklp]

Кросс:
http://www.excelworld.ru/forum/10-6711-1

[IgorGO]

 Sub AddRowAbove()
  Const psw As String = "пароль"
  dim r as long
  With ActiveSheet
    .Unprotect psw
    r = .Columns(2).Find(".").Row
    rows(r).Insert shift:=xlDown
    cells(r-1,1).copy
    cells(r,1).PasteSpecial Paste:=xlPasteFormats
    cells(r-1,36).resize(1,5).copy
    cells(r,36).PasteSpecial Paste:=xlPasteFormulas
    .Protect psw
  End With
End Sub

[normres]

Приветствую.
IgorGO я код немного сдвинул на колонку 6 и точку на колонку 1
что-то с границами как-то не корректно получается. Да и с формулами что то не понятно почему то отражаются значения.
Посмотрите пример.

[IgorGO]

извините, писал просто тут, не проверяя...
там опечатка)))
необходимо

cells(r-1,1).copy

заменить на

Rows(r - 1).Copy

и будет Вам счастье!
хотя нет... для счастья еще в конце надо добавить

cells(r,1) = cells(r-1,1)+1