Перейти до основного матеріалу

Як дозволити редагування об’єктів на захищеному аркуші в Excel?

За замовчуванням вставлені об'єкти, такі як фігури, текстові поля, не можна редагувати після захисту робочого аркуша. Якщо вам потрібно редагувати об’єкти на захищеному аркуші, спробуйте методи, описані в цій статті.

Дозвольте редагувати об’єкти на захищеному аркуші, встановивши прапорець Редагувати об’єкти
Дозволити редагування об’єктів на захищеному аркуші за допомогою коду VBA

Дозвольте редагувати об’єкти на захищеному аркуші, встановивши прапорець Редагувати об’єкти

Будь ласка, поставте прапорець Редагувати об’єкти, щоб дозволити редагування об’єктів перед захистом робочого аркуша. Будь ласка, виконайте наступне.

1. клацання Розгляд > Захистити аркуш.

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

Тепер аркуш захищений, і всі об’єкти на цьому захищеному аркуші можна редагувати.

Дозволити редагування об’єктів на захищеному аркуші за допомогою коду VBA

Якщо аркуш уже захищений, ви можете спробувати наведений нижче сценарій VBA, щоб дозволити редагування об’єктів. Будь ласка, виконайте наступне.

1 Натисніть кнопку інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, двічі клацніть ThisWorkbook в лівій Проекти панелі. Потім скопіюйте та вставте наведений нижче код 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 Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички 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!
Vanessa
Vanessa
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
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations