Удаление последней строки в таблице защищенного листа

Question

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

Первая проблема, с которой я столкнулся, позволяла конечным пользователям вводить/удалять строки с защищенными ячейками и иметь автоматическое заполнение формул, поэтому я сделал каждую часть бюджета в таблицу.

Чтобы обойти защитный аспект, я нашел код для макроса на форуме, который позволил листу быть незащищенным, вставить строку в конец таблицы и воспроизвести ее. Это код:

Sub AddRowEquipment() 
    ActiveSheet.Unprotect Password:="password" 
    Range("A44").End(xlDown).ListObject.ListRows.Add AlwaysInsert:=False 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="password" 
End Sub 

Я просто хотел бы иметь помощь, создавая код, который делает обратное, снятие защиты листа, удаляет последнюю строку идентифицированной таблицы и reprotects его.

Answer 1

Попробуйте это, я предполагаю, что ваш стол начинается с ячейки A44, как на картинке ниже.

Sub DeleteRowEquipment() 
Dim lastrow As Integer 
lastrow = ActiveSheet.Range("A44").listobject.Range.Rows.Count 
ActiveSheet.Unprotect Password:="password" 
Range("A44").listobject.ListRows(lastrow-1).Delete 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="password" 
End Sub