Visuelles Anzeigen eines Schutzstatus (Microsoft Excel)
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 festzustellen, ob etwas ungeschützt ist, besteht darin, sich die Werkzeuge auf den verschiedenen Multifunktionsleisten-Registerkarten anzusehen. Wenn die gesamte Palette an Werkzeugen vorhanden ist, sind das Arbeitsblatt und die Arbeitsmappe ungeschützt. Wenn eine erhebliche Anzahl von Werkzeugen nicht verfügbar ist („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.
Denken Sie daran: Der Wert aus den Funktionen wird nur aktualisiert, wenn das Arbeitsblatt neu berechnet wird. Wenn Sie lediglich das Arbeitsblatt schützen (oder den Schutz aufheben), wird das Arbeitsblatt nicht neu berechnet. Um nach dem Ändern des Schutzstatus die richtigen Ergebnisse zu erzielen, müssen Sie das Arbeitsblatt neu berechnen.
_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.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (9639) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: