Przejdź do głównej zawartości

Jak zezwolić na edycję obiektów w chronionym arkuszu w programie Excel?

Domyślnie wstawionych obiektów, takich jak kształty, pola tekstowe, nie można edytować po ochronie arkusza. Jeśli chcesz edytować obiekty w chronionym arkuszu, wypróbuj metody opisane w tym artykule.

Zezwól na edycję obiektów w chronionym arkuszu, zaznaczając opcję Edytuj obiekty
Zezwalaj na edycję obiektów w chronionym arkuszu z kodem VBA

Zezwól na edycję obiektów w chronionym arkuszu, zaznaczając opcję Edytuj obiekty

Zaznacz opcję Edytuj obiekty, aby umożliwić edycję obiektów przed ochroną arkusza. Wykonaj następujące czynności.

1. kliknij Review > Chroń arkusz.

2. w Chroń arkusz W oknie dialogowym określ hasło w Hasło do odblokowania arkusza i zaznacz Edytuj obiekty w polu Zezwalaj wszystkim użytkownikom tego arkusza na, a następnie kliknij OK przycisk. Potwierdź swoje hasło w Powtórz hasło Okno dialogowe. Zobacz zrzut ekranu:

Teraz arkusz roboczy jest chroniony, a wszystkie obiekty w tym chronionym arkuszu można edytować.

Zezwalaj na edycję obiektów w chronionym arkuszu z kodem VBA

Jeśli arkusz jest już chroniony, możesz wypróbować poniższy skrypt VBA, aby umożliwić edycję obiektów. Wykonaj następujące czynności.

1. wciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications kliknij dwukrotnie Ten zeszyt po lewej Projekty szkło. Następnie skopiuj i wklej poniższy kod VBA do pliku ThisWorkbook (kod) okno.

Kod VBA: Zezwalaj na edycję obiektów w chronionym arkuszu

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

Note: W kodzie Sheet3 jest chronionym arkuszem roboczym zawierającym obiekty, które musisz edytować. Numer „123” to hasło chronionego arkusza. Zmień je według potrzeb.

3. wciśnij F5 klucze do uruchomienia kodu, a wszystkie obiekty w tym chronionym arkuszu można od razu edytować.

Powiązane artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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