Прескочи на основното съдържание

Как да разрешите редактиране на обекти в защитен работен лист в Excel?

Автор: Силувия Последна промяна: 2020-07-09

По подразбиране вмъкнатите обекти като форми, текстови полета не могат да се редактират след защита на работния лист. Ако трябва да редактирате обекти в защитен работен лист, моля, опитайте методите в тази статия.

Разрешете редактиране на обекти в защитен работен лист, като поставите отметка на опцията Редактиране на обекти
Разрешете редактиране на обекти в защитен работен лист с VBA код


Разрешете редактиране на обекти в защитен работен лист, като поставите отметка на опцията Редактиране на обекти

Моля, проверете опцията Редактиране на обекти, за да позволите редактиране на обекти, преди да защитите работния лист. Моля, направете следното.

1. кликване Оценки на посетители > Защита на листа.

2. В Защита на листа диалогов прозорец, задайте парола в Парола за премахване на защитата на листа поле и отметнете Редактиране на обекти в полето Разрешаване на всички потребители на този работен лист, след което щракнете върху OK бутон. Потвърдете паролата си в потвърди парола диалогов прозорец. Вижте екранна снимка:

Сега работният лист е защитен и всички обекти в този защитен работен лист могат да се редактират.


Разрешете редактиране на обекти в защитен работен лист с VBA код

Ако работният лист вече е защитен, можете да опитате долния VBA скрипт, за да разрешите редактиране на обекти. Моля, направете следното.

1. Натисни Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, щракнете два пъти Тази работна книга вляво Проект прозорец. След това копирайте и поставете долния VBA код в Тази работна книга (код) прозорец.

VBA код: Разрешете редактиране на обекти в защитен работен лист

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

Забележка: В кода Sheet3 е защитеният работен лист, който съдържа обектите, които трябва да редактирате. А числото “123” е паролата на защитения лист. Моля, сменете ги според нуждите си.

3. Натисни F5 ключове за изпълнение на кода и всички обекти в този защитен работен лист могат да се редактират незабавно.


Свързани статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations