In diesem Artikel erfahren Sie, wie Sie alle Blätter mit VBA-Code schützen und deren Schutz aufheben.

Führen Sie die folgenden Schritte aus, um den Bildschirm des VBA-Editors zu öffnen:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code Visual Basic

img1 Click on Insert, and then Module

img2

aus Dadurch wird ein neues Modul erstellt.

Geben Sie den folgenden Code in das Modul ein, um alle Arbeitsblätter zu schützen.

Sub Protect ()

‚Alle Blätter in der Arbeitsmappe durchlaufen

Für i = 1 To Sheets.Count

Blätter (i) .Schützen

Weiter i

End Sub

img3

Verwenden Sie den folgenden Code, um den Schutz aller Arbeitsblätter aufzuheben.

Sub UnProtect ()

‚Alle Blätter in der Arbeitsmappe durchlaufen

Für i = 1 To Sheets.Count

Blätter (i) .UnProtect

Weiter i

End Sub

Drücken Sie die Tastenkombination ALT + F8, um das Makrofenster zu öffnen, und wählen Sie dann das Makro Schützen aus.

img4

Alternativ können Sie F5 drücken, um den Code im VBA-Bildschirm auszuführen.

Nach dem Ausführen des Makros; Alle Blätter werden geschützt.

Drücken Sie ALT + F8 und wählen Sie Unprotect

img5

Dadurch werden alle Arbeitsblätter deaktiviert.

Auf diese Weise können wir die Arbeitsblätter bei Bedarf schützen und deren Schutz aufheben.