Як зберегти таблицю розширюваною, вставляючи рядок таблиці в захищений аркуш у Excel?

Функція автоматичного розширення таблиці буде втрачена після захисту робочого аркуша в Excel. Наприклад, на вашому захищеному аркуші є таблиця з назвою Table1, коли ви вводите що-небудь під останнім рядком, таблиця автоматично не розширюватиметься, щоб включити новий рядок. Чи існує спосіб зберегти таблицю розширюваною, вставляючи новий рядок у захищений аркуш? Метод у цій статті може допомогти вам його досягти.

Зберігайте таблицю розширюваною, вставляючи рядок таблиці в захищений аркуш із кодом VBA

Зберігайте таблицю розширюваною, вставляючи рядок таблиці в захищений аркуш із кодом VBA

Як показано на знімку екрана, таблиця з іменем Table1 на вашому аркуші, а останній стовпець таблиці - це стовпець формули. Тепер вам потрібно захистити робочий аркуш, щоб запобігти зміні стовпця формули, але дозволити розгорнути таблицю, вставивши новий рядок і призначивши нові дані в нові клітинки. Будь ласка, виконайте наступне.

1. клацання Розробник > Insert > Кнопка (контроль форми) вставити a Контроль форми на робочому аркуші.

2. У спливаючому Призначити макрос у діалоговому вікні натисніть Нові кнопки.

3 В Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наведений нижче код VBA між нижче та End Sub абзаців у код вікна.

Код VBA: Зберігайте таблицю розширюваною, вставляючи рядок таблиці в захищений аркуш

 'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    Set tableRg = ActiveSheet.ListObjects("Table4").Range
    xRowCount = tableRg.Rows.Count
    
    Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True

примітки:

4 Натисніть кнопку інший + Q клавіші, щоб закрити вікно Microsoft Visual Basic for Applications.

5. Виділіть клітинки таблиці, до яких потрібно призначити нові дані, крім стовпця формули, а потім натисніть Ctrl + 1 ключі, щоб відкрити Формат ячеек діалогове вікно. В Формат ячеек діалоговому вікні, зніміть прапорець біля Заблокований , а потім клацніть на OK кнопку. Дивіться знімок екрана:

6. Тепер захистіть свій аркуш паролем, який ви вказали в коді VBA.

Відтепер після натискання кнопки «Форма керування» на захищеному аркуші таблицю можна буде розширювати, вставляючи новий рядок, як показано нижче.

примітки: ви можете змінити таблицю, крім стовпця формули на захищеному аркуші.

Статті по темі:

• Як тримати рух слайсера зведеної таблиці за допомогою прокрутки робочого аркуша в Excel?
• Як поєднати комірки та зберегти форматування комірок у Excel?
• Як видалити дублікати, але зберегти перший примірник у Excel?