Добавление строки таблицы на защищённом листе Excel

Программирование на Visual Basic for Applications
MikeGerg
Начинающий
Начинающий
 
Сообщения: 12
Зарегистрирован: 04.08.2007 (Сб) 11:56

Добавление строки таблицы на защищённом листе Excel

Сообщение MikeGerg » 06.04.2023 (Чт) 18:14

На листе Excel присутствует таблица ListObject. Добавление к ней строки выполняется стандартно
Код: Выделить всё
Worksheets("Sheet1").Listobjects("Table1").Listrows.Add

Если включить защиту листа в режиме UserInterfaceOnly с разрешением на добавление и удаление строк, а так же сделать ячейки таблицы не защищаемые, команда просто тупо не выполняется (без всяких сообщений об ошибках). В то же время команда на удаление
Код: Выделить всё
Worksheets("Sheet1").ListObjects("Table1").ListRows(5).Range.Delete
выполняется на ура.
В чём я косячу? Или это не я? Офис 2016. ОС Win10.
MITCHEL

Template
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 09.09.2006 (Сб) 18:03

Re: Добавление строки таблицы на защищённом листе Excel

Сообщение Template » 06.04.2023 (Чт) 20:57

По поводу косяков не подскажу, а строку можно добавить и так:

Код: Выделить всё
With Worksheets("Sheet1").Range("Table1")
     .Rows(.Rows.Count).Insert
     '.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With

MikeGerg
Начинающий
Начинающий
 
Сообщения: 12
Зарегистрирован: 04.08.2007 (Сб) 11:56

Re: Добавление строки таблицы на защищённом листе Excel

Сообщение MikeGerg » 07.04.2023 (Пт) 8:35

Спасибо, конечно же. Все альтернативы типа Insert и Unprotect я уже изучил.
Тут коса на камень ... Вопрос стал академическим!
MITCHEL


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10

    TopList