So schützen / Schutz aufheben alle Arbeitsblätter mit VBA in Microsoft Excel 2010
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
Click on Insert, and then Module
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
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.
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
Dadurch werden alle Arbeitsblätter deaktiviert.
Auf diese Weise können wir die Arbeitsblätter bei Bedarf schützen und deren Schutz aufheben.