Как да поддържате таблицата разширяема чрез вмъкване на ред от таблица в защитен работен лист в Excel?
Функцията за автоматично разширяване на таблицата ще бъде загубена след защита на работния лист в Excel. Например има таблица с име Table1 във вашия защитен работен лист, когато въведете нещо под последния ред, таблицата няма да се разшири автоматично, за да включи новия ред. Има ли метод за поддържане на възможност за разширяване на таблицата чрез вмъкване на нов ред в защитен работен лист? Методът в тази статия може да ви помогне да го постигнете.
Поддържайте таблицата разширяема, като вмъкнете ред от таблица в защитен работен лист с VBA код
Поддържайте таблицата разширяема, като вмъкнете ред от таблица в защитен работен лист с VBA код
Както е показано на екранната снимка по-долу, таблица с име Table1 във вашия работен лист и последната колона на таблицата е колона с формула. Сега трябва да защитите работния лист, за да предотвратите промяна на колоната с формули, но да позволите разширяването на таблицата чрез вмъкване на нов ред и присвояване на нови данни в новите клетки. Моля, направете следното.
1. кликване Софтуерен Инженер > Поставете > Бутон (контрола на формуляр) за вмъкване на 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 за приложения.
5. Изберете клетките в таблицата, към които трябва да присвоите нови данни, с изключение на колоната с формули, след което натиснете Ctrl + 1 за да отворите Форматиране на клетки диалогов прозорец. В Форматиране на клетки диалогов прозорец, премахнете отметката от Заключен и след това щракнете върху OK бутон. Вижте екранна снимка:
6. Сега защитете вашия работен лист с парола, която сте посочили във VBA кода.
Отсега нататък, след щракване върху бутона за управление на формуляр във вашия защитен работен лист, таблицата ще може да се разширява чрез вмъкване на нов ред, както е показано на екранната снимка по-долу.
Забележка: можете да промените таблицата с изключение на колоната с формули в защитения работен лист.
Свързани статии:
- Как да поддържам слайсер на обобщена таблица да се движи с превъртане на работен лист в Excel?
- Как да комбинирате клетки и да запазите форматирането на клетките в Excel?
- Как да премахнете дубликати, но да запазите първата инстанция в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!