Todd hat ein Arbeitsbuch entwickelt, das von anderen verwendet wird. Um zu verhindern, dass Daten ruiniert werden, hat er sowohl das Arbeitsblatt als auch die Arbeitsmappe geschützt. Das Problem ist, dass Todd manchmal vergisst, das Arbeitsblatt und die Arbeitsmappe zu schützen, nachdem er Änderungen vorgenommen hat. Er fragt sich, ob es eine Möglichkeit gibt, einen visuellen Indikator zu erstellen, der anzeigt, ob das Arbeitsblatt / die Arbeitsmappe derzeit geschützt oder ungeschützt ist.

Der einfachste Weg, um zu überprüfen, ob etwas ungeschützt ist, besteht darin, sich die verfügbaren Menüoptionen anzusehen. Wenn alle Auswahlmöglichkeiten vorhanden sind, sind das Arbeitsblatt und die Arbeitsmappe ungeschützt. Wenn wichtige Teile nicht verfügbar sind („ausgegraut“), ist der Schutz aktiviert.

Eine andere einfache Lösung besteht darin, eine benutzerdefinierte Funktion zu erstellen, die einen Wert zurückgibt, der angibt, ob die Arbeitsmappe oder das Arbeitsblatt geschützt sind. Folgendes reicht aus:

Function WksProtected(rng As Range) As String     Application.Volatile     If rng.Parent.ProtectContents Then         WksProtected = "Protected"

Else         WksProtected = "Not Protected"

End If End Function
Function WkbProtected(rng As Range) As String     Application.Volatile     If rng.Parent.Parent.ProtectStructure Then         WkbProtected = "Protected"

Else         WkbProtected = "Not Protected"

End If End Function

Um die Makros zu verwenden, fügen Sie einfach Formeln wie die folgenden an einer beliebigen Stelle im Arbeitsblatt ein:

=WksProtected(A1)

=WkbProtected(A1)

Das Ergebnis der Formeln ist entweder „Geschützt“ oder „Nicht geschützt“,

abhängig vom Status der Arbeitsblätter und Arbeitsmappen. Sie können die bedingte Formatierung verwenden, um die Zellen basierend auf den von den Funktionen zurückgegebenen Werten hervorzuheben.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

Dieser Tipp (3172) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Schutzstatus visuell anzeigen.