Andre hat eine Arbeitsmappe mit 52 Arbeitsblättern. Er möchte die Arbeitsblätter schützen, aber nicht die Arbeitsmappe selbst. Derzeit schützt er alle 52 Blätter einzeln. Er fragt sich, ob es einen Weg gibt, sie alle auf einmal zu schützen.

Die einzige Möglichkeit, dies zu tun, ist die Verwendung eines Makros. Glücklicherweise ist das Makro ziemlich kurz:

Sub ProtectAllSheets()

Dim ws As Worksheet

For Each ws In Worksheets         ws.Protect     Next End Sub

Wenn Sie dieses Makro ausführen, werden alle Arbeitsblätter in der Arbeitsmappe geschützt, ohne dass ein Kennwort angegeben wird. (Dies bedeutet, dass jeder Benutzer den Schutz aufheben kann.) Wenn Sie ein Kennwort angeben möchten, können Sie dies mit einer einfachen Änderung tun:

Sub ProtectAllSheets()

Dim ws As Worksheet

For Each ws In Worksheets         ws.Protect Password:="MyPassword"

Next End Sub

Das von Ihnen angegebene Kennwort wird für jedes Arbeitsblatt verwendet, dh alle verwenden dasselbe Kennwort.

Sie können diese Makros einfach ändern, um den Schutz aller Arbeitsblätter aufzuheben, indem Sie einfach die .Protect-Methode in .Unprotect ändern.

Sie sollten sich auch darüber im Klaren sein, dass die Makros einen Fehler erzeugen, wenn Ihre Arbeitsmappe oder Arbeitsblätter einige Optionen verwenden, die den Schutz von Arbeitsblättern ausschließen (z. B. Freigabe).

Ein völlig anderer Ansatz besteht darin, ein Dienstprogramm eines Drittanbieters zum Schutz zu verwenden. Sie können solche Dienstprogramme mit einer schnellen Internetsuche finden; Ein Beispiel wäre Asap Utilities (http://www.asap-utilities.com).

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (7511) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.