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.