Diagramme entsperren (Microsoft Excel)
Eine häufige Aufgabe in Makros ist das Sperren und Entsperren verschiedener Zellen und Objekte in einer Arbeitsmappe. Dies geschieht häufig aus Schutzgründen, damit Benutzer nicht versehentlich Änderungen vornehmen können. Wenn Sie die Diagramme in Ihrer Arbeitsmappe entsperren müssen, können Sie dies problemlos tun, wenn Sie sich daran erinnern, dass Diagramme zwar als Zeichenobjekte betrachtet werden können, Sie sie jedoch nicht als Zeichenobjekte entsperren – Sie entsperren speziell das Diagrammobjekt.
Wie Sie ein Diagramm entsperren, hängt außerdem davon ab, ob es sich um ein Diagrammblatt oder ein Diagrammobjekt in einem normalen Arbeitsblatt handelt. Der folgende Code mit dem Namen ChartUnProtect bietet ein Beispiel für das erfolgreiche Aufheben des Schutzes beider Diagrammtypen.
Sub ChartUnProtect() Dim wks As Worksheet Dim cht As Chart Dim chtObj As ChartObject Dim PW As String PW = "mypass" 'Unprotect all Chart sheets For Each cht In ActiveWorkbook.Charts Sheets(cht.Name).Unprotect password:=PW Next 'Unlock all Chart objects on each worksheet For Each wks In ActiveWorkbook.Worksheets wks.Unprotect password:=PW For Each chtObj In wks.ChartObjects wks.DrawingObjects(chtObj.Name).Locked = False Next wks.Protect password:=PW Next End Sub
_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 (2264) gilt für Microsoft Excel 97, 2000, 2002 und 2003.