Поставить защиту на диапазон строк

[brik]

Поставить защиту на диапазон строк ниже последней заполненной строки
на открытие книги
Заполнение проверяем по столбцу A на всех листах кроме листа "Итог"

Private Sub Workbook_Open()

Dim wsSh As Worksheet 'снимаем защиту листов
For Each wsSh In Sheets
wsSh.Unprotect "123

Dim j
For Each i In ThisWorkbook.Sheets
lLastRow = Cells(Rows.Count,1).End(xlUp).Row
j = lLastRow
If i.Name <> "Итог" Then
i.Cells(2, 10000).Locked = False 'сначала снимаем возможные защищенные ячейки если попало что с 2 строки
i.Cells(j, 10000).Locked = True 'устанавливаем защищенные ячейки с последней незаполненной строки до конца
End If
Next
End Sub

но почемуто не заработало ..

[IgorGO]

но почемуто не заработало ..

потому что лист не защитили

End If
wsSh.protect "123
Next

[brik]

Private Sub Workbook_Open()

Dim wsSh As Worksheet 'снимаем защиту листов
For Each wsSh In Sheets
wsSh.Unprotect "123"

Dim lLastRow&, j&
For Each i In ThisWorkbook.Sheets
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
j = lLastRow
If i.Name <> "Итог" Then
i.Cells(2, 10000).Locked = False 'сначала снимаем возможные защищенные ячейки если попало что с 2 строки
i.Cells(j, 10000).Locked = True 'устанавливаем защищенные ячейки с последней незаполненной строки до конца
End If
wsSh.Protect "123"
Next
End Sub

ругается однако чтото не так

[IgorGO]

не срабатывает не потому, что строка добавилась, а потому что
количество For не соответствует количеству Next

Private Sub Workbook_Open() 
Dim i As Worksheet 'снимаем защиту листов 
For Each i In Sheets 
i.Unprotect "123" 
Dim lLastRow&, j& 
lLastRow = i.Cells(Rows.Count, 1).End(xlUp).Row 
j = lLastRow 
If i.Name <> "Итог" Then 
i.Cells(2, 10000).Locked = False 'сначала снимаем возможные защищенные ячейки если попало что с 2 строки 
i.Cells(j, 10000).Locked = True 'устанавливаем защищенные ячейки с последней незаполненной строки до конца 
End If 
i.Protect "123" 
Next 
End Sub

[brik]

спасибо Igor что помогли но чтото не так

щас проверил - 1 строка блокируется на листах которые должны быть защищены

а макрос должен работать в диапазоне начиная со 2 строки тк предварительно первую строку в защищенных листах заполнил по столбцу A - чето неправильно сделал в задании диапазона а вот что ?

[brik]

вот так правильно - все голову изломал

Private Sub Workbook_Open()
Dim i As Worksheet 'снимаем защиту листов
For Each i In Sheets
i.Unprotect "123"
Dim lLastRow
If i.Name <> "Итог" Then
lLastRow = i.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
i.Range(i.Cells(1, 1), i.Cells(1000, 23)).Locked = False
i.Range(i.Cells(lLastRow, 1), i.Cells(1000, 23)).Locked = True
End If
i.Protect "123"
Next
End Sub