Direkt zum Inhalt

Wie erlaube ich das Bearbeiten von Objekten in einem geschützten Arbeitsblatt in Excel?

Standardmäßig können die eingefügten Objekte wie Formen und Textfelder nach dem Schutz des Arbeitsblatts nicht mehr bearbeitet werden. Wenn Sie Objekte in einem geschützten Arbeitsblatt bearbeiten müssen, probieren Sie die Methoden in diesem Artikel aus.

Ermöglichen Sie das Bearbeiten von Objekten in einem geschützten Arbeitsblatt, indem Sie die Option Objekte bearbeiten aktivieren
Zulassen, dass Objekte in einem geschützten Arbeitsblatt mit VBA-Code bearbeitet werden


Ermöglichen Sie das Bearbeiten von Objekten in einem geschützten Arbeitsblatt, indem Sie die Option Objekte bearbeiten aktivieren

Aktivieren Sie die Option Objekte bearbeiten, um das Bearbeiten von Objekten zu ermöglichen, bevor Sie das Arbeitsblatt schützen. Bitte gehen Sie wie folgt vor.

1 Klicken Überprüfung > Schutzblatt.

2. In dem Schutzblatt Geben Sie im Dialogfeld ein Kennwort in das Feld ein Passwort, um das Blatt zu entfernen Kästchen und aktivieren Sie das Kontrollkästchen Objekte bearbeiten Klicken Sie im Feld Alle Benutzer dieses Arbeitsblatts zulassen auf und klicken Sie dann auf OK Taste. Bestätigen Sie Ihr Passwort in der Passwort bestätigen Dialogbox. Siehe Screenshot:

Jetzt ist das Arbeitsblatt geschützt und alle Objekte in diesem geschützten Arbeitsblatt können bearbeitet werden.


Zulassen, dass Objekte in einem geschützten Arbeitsblatt mit VBA-Code bearbeitet werden

Wenn das Arbeitsblatt bereits geschützt wurde, können Sie das folgende VBA-Skript verwenden, um Objekte bearbeiten zu können. Bitte gehen Sie wie folgt vor.

1. Drücken Sie die Taste Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick DiesesWorkbook in der linken Projekt Feld. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das ein DiesesArbeitsbuch (Code) Fenster.

VBA-Code: Zulassen, dass Objekte in einem geschützten Arbeitsblatt bearbeitet werden

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: Im Code ist Sheet3 das geschützte Arbeitsblatt, das die Objekte enthält, die Sie bearbeiten müssen. Und die Nummer „123“ ist das Passwort des geschützten Blattes. Bitte ändern Sie sie nach Bedarf.

3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes und alle Objekte in diesem geschützten Arbeitsblatt können sofort bearbeitet werden.


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
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