Excel VBA Unprotect Sheet

Wir haben eine Option in Excel, mit der wir unsere Excel-Tabellen und -Dateien vor dem Löschen, Umbenennen und Speichern der Daten vor anderen Änderungen schützen können, die nicht erforderlich sind. Die Option heißt " Arbeitsblatt schützen" und " Arbeitsmappe schützen" und befindet sich im Abschnitt " Änderungen " in der Menüleiste " Überprüfen" . Wir können ein Passwort festlegen, mit dem wir das ausgewählte Blatt von allen vorgenommenen Änderungen speichern können. Aber was ich sage, kann dies auch mit VBA-Code automatisiert werden. Ja, wir können einen Code oder ein Makro erstellen, mit dem wir das Arbeitsblatt und die Arbeitsmappe automatisch sperren können. In diesem Artikel geht es jedoch nur darum, den Schutz des Blattes aufzuheben.

Das Aufheben des Schutzes der Folie ist auch als Schutz der Folie ein ziemlich einfacher Vorgang. Um den Schutz des Arbeitsblatts aufzuheben, müssen Sie das Kennwort eingeben, das Sie beim Sperren des Arbeitsblatts verwendet haben. Um den Schutz des Arbeitsblatts aufzuheben, müssen Sie nur den Namen des Arbeitsblatts und die Funktion " Schutz aufheben" auswählen. Wenn dies in VBA verfügbar ist, handelt es sich nur um einen einzeiligen Code. Wenn dies nicht der Fall ist, müssen wir nach einer anderen Möglichkeit suchen, die wir in den folgenden Beispielen sehen werden.

Wie kann ich den Schutz eines Blattes in Excel VBA aufheben?

Wir werden lernen, wie Sie den Schutz von Arbeitsblättern in Excel mithilfe des VBA-Codes aufheben.

Sie können diese Excel-Vorlage für VBA-Schutz aufheben hier herunterladen - Excel-Vorlage für VBA-Schutz aufheben

VBA Unprotect Sheet - Beispiel 1

Zunächst sehen wir ein einfaches Beispiel, um den Schutz des Blattes aufzuheben. Führen Sie dazu die folgenden Schritte aus:

Schritt 1: Öffnen Sie zunächst ein Modul über die Registerkarte Einfügen (siehe unten).

Schritt 2: Schreiben Sie nun die Unterprozedur des VBA-Unprotect-Blatts. Oder wir können einen anderen Namen wählen, um ihn zu definieren.

Code:

 Sub VBA_Unprotect () End Sub

Schritt 3: Definieren Sie eine Variable namens Arbeitsblatt mit einem beliebigen Namen. Vorzugsweise der Name, der dem Arbeitsblatt ähnelt, z. B. ExSheet

Code:

 Sub VBA_Unprotect () ExSheet als Arbeitsblatt dimmen End Sub

Schritt 4: Setzen Sie nun die definierte Arbeitsblattvariable auf den Namen des Blattes, dessen Schutz wir aufheben möchten. Hier ist der Name dieses Blattes Sheet1 .

Code:

 Sub VBA_Unprotect () ExSheet als Arbeitsblatt verdunkeln Set ExSheet = Arbeitsblätter ("Sheet1") End Sub

Schritt 5: Weisen Sie nun der Arbeitsblattvariablen ExSheet die Funktion Unprotect zu, die sich in der Dropdown-Liste VBA befindet .

Code:

 Sub VBA_Unprotect () ExSheet als Arbeitsblatt verdunkeln Set ExSheet = Arbeitsblätter ("Sheet1") ExSheet.Unprotect End Sub

Schritt 6: Geben Sie nun das Passwort ein, das Sie zum Sperren dieses Blattes angegeben haben. Hier ist das Passwort "Open1212". Und das kann alles sein, was dem Benutzer überlassen bleibt.

Code:

 Sub VBA_Unprotect () ExSheet als Arbeitsblatt verdunkeln Set ExSheet = Arbeitsblätter ("Sheet1") ExSheet.Unprotect Password: = "Open1212" End Sub

Schritt 7: Jetzt schützen wir zuerst Sheet1, indem wir auf die Registerkarte Überprüfen klicken und die Option Blatt schützen auswählen.

Schritt 8: Geben Sie das gewünschte Passwort ein und klicken Sie auf OK, um das Blatt zu schützen.

Schritt 9: Geben Sie das Passwort zur Bestätigung erneut ein.

Schritt 10: Sobald dies erledigt ist, können wir nichts an diesem Blatt ändern, auch wenn wir es versuchen. Um den Schutz des Blatts aufzuheben, kompilieren wir unseren geschriebenen Code und führen ihn aus.

Sobald unser Code ausgeführt wurde, können wir nun Änderungen an Sheet1 vornehmen .

Schritt 11: Was ist, wenn wir die Codezeile, in die wir das Kennwort eingegeben haben, entfernen oder ändern und die Funktion "Schutz aufheben" aktivieren (siehe unten). Mal sehen, was passiert, wenn wir das tun.

Code:

 Sub VBA_Unprotect () ExSheet als Arbeitsblatt verdunkeln Set ExSheet = Arbeitsblätter ("Sheet1") ExSheet.Unprotect End Sub

Schritt 12: Führen Sie nun den vollständigen Code erneut aus. Wir werden sehen, dass ein Meldungsfeld erscheint, in dem Sie aufgefordert werden, das Passwort einzugeben. Geben Sie hier das Passwort ein, das wir beim Schützen des Blattes ausgewählt haben, und klicken Sie auf OK.

Mit diesem Verfahren können wir auch den Schutz des gewünschten Bogens aufheben.

VBA Unprotect Sheet - Beispiel 2

Es gibt eine andere Möglichkeit, den Schutz von Arbeitsblättern aufzuheben. Dies ist der einfachste und einfachste Weg, dies zu tun. Führen Sie dazu die folgenden Schritte aus:

Schritt 1: Schreiben Sie die Unterprozedur für VBA Unprotect wie unten gezeigt.

Code:

 Sub VBA_Unprotect2 () End Sub

Schritt 2: Verwenden Sie die Funktion Arbeitsblätter und wählen Sie das Blatt aus, dessen Schutz wir aufheben möchten. Auch hier ist das Blatt Sheet1 .

Code:

 Sub VBA_Unprotect2 () Arbeitsblätter ("Sheet1") End Sub

Schritt 3: Auf ähnliche Weise wie in Beispiel 1 verwenden wir den Befehl Unprotect (Schutz aufheben) zusammen mit dem Kennwort, das wir beim Sperren des Arbeitsblatts verwendet haben. Hier ist unser Passwort zum Aufheben des Schutzes dasselbe wie „ Open1212 “.

Code:

 Sub VBA_Unprotect2 () Arbeitsblätter ("Sheet1"). Unprotect Password: = "Open1212" End Sub

Jetzt ist unser Code fertig. Um dies zu testen, schützen Sie zunächst das Blatt auf die gleiche Weise wie in Beispiel 1 und führen Sie diesen Code aus, um den Schutz aufzuheben.

VBA Unprotect Sheet - Beispiel 3

Was ist, wenn ich sage, wir können wieder einen Code schreiben, in dem wir nicht den Namen des Blatts auswählen müssen, dessen Schutz wir aufheben möchten. Ja, dies kann mit einer Schleife erfolgen. Führen Sie dazu die folgenden Schritte aus:

Schritt 1: Öffnen Sie dazu erneut ein Modul und schreiben Sie die Unterprozedur des VBA-Unprotect-Blattes wie unten gezeigt.

Code:

 Sub VBA_Unprotect3 () End Sub

Schritt 2: Verwenden Sie DIM, um eine Variable für Worksheet als Exsheet zu definieren. Dies ist die gleiche Zeile, die wir in den obigen Beispielen verwendet haben.

Code:

 Sub VBA_Unprotect3 () ExSheet als Arbeitsblatt dimmen End Sub

Schritt 3: Öffnen Sie eine For-Next-Schleife, in die wir die Bedingungen für den ungeschützten Bogen schreiben.

Code:

 Sub VBA_Unprotect3 () ExSheet als Arbeitsblatt für das nächste ExSheet-Ende dimmen Sub

Schritt 4: Schreiben Sie die Bedingung für jede geöffnete aktive Arbeitsmappe und wählen Sie das aktuell aktive Arbeitsblatt aus, wie unten gezeigt.

Code:

 Sub VBA_Unprotect3 () ExSheet als Arbeitsblatt für jedes ExSheet in ActiveWorkbook.Worksheets dimmen Next ExSheet End Sub

Schritt 5: Auf ähnliche Weise wie in den obigen Beispielen werden wir definierte Variablen zusammen mit der Funktion "Schutz aufheben" verwenden, um den Schutz des Blattes aufzuheben. Auch hier können wir das Passwort verwenden oder nicht. Dies ist ein optionaler Weg.

Code:

 Sub VBA_Unprotect3 () ExSheet als Arbeitsblatt für jedes ExSheet in ActiveWorkbook.Worksheets verdunkeln ExSheet.Unprotect Password: = "Open1212" Next ExSheet End Sub

Kompilieren Sie den Code und führen Sie ihn aus, wenn kein Fehler gefunden wurde.

Auf diese Weise können wir den Schutz eines geöffneten aktuellen Arbeitsblatts aufheben, ohne den Namen und die Reihenfolge dafür auswählen zu müssen. Dieser Code berücksichtigt automatisch das Blatt, das gerade ausgewählt und geöffnet ist.

Vorteile von Excel VBA Unprotect Sheet

  • Die oben gezeigten Verfahren und Beispiele sind am einfachsten anzuwenden.
  • Wir können den Schutz des Blattes auf beide Arten aufheben, indem wir das Passwort selbst im Code oder ohne Passwort angeben.
  • Dies funktioniert auf die gleiche Weise wie das manuelle Aufheben des Schutzes für das Blatt.

Dinge, an die man sich erinnern sollte

  • Da der Prozess recht einfach zu implementieren ist, gibt es möglicherweise keine Verbesserung durch Automatisierung.
  • Wir können das Kennwort jedes Mal ändern, wenn wir den Vorgang zum Schützen und Aufheben des Schutzes des Blattes wiederholen.
  • Wir können den Namen des Blatts oder die Sequenz des Blatts auswählen, dessen Schutz wir aufheben möchten.
  • Und wenn Sie fertig sind, speichern Sie den Code im Excel-Arbeitsblatt "Makro aktivieren", um den VBA-Code vor Verlust zu schützen.

Empfohlene Artikel

Dies ist eine Anleitung zu VBA Unprotect Sheet. In diesem Abschnitt wird erläutert, wie Sie den Schutz von Tabellen in Excel mithilfe von VBA-Code aufheben. Außerdem werden praktische Beispiele und eine herunterladbare Excel-Vorlage vorgestellt. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. Öffentliche VBA-Variable (Beispiele)
  2. VBA-Formatnummer mit Funktion
  3. VBA-Variante mit Datentypen
  4. VBA Randomize | Excel-Vorlagen
  5. VBA Environ

Kategorie:

VBA