Blattschutz auf Diagramm, welches Makro braucht
Benjamin
ich habe mit Hilfe des Forums folgenden Code zusammengebastelt:
Private Sub Chart_Activate()
Dim Grafikbereich As Range
Dim Beschriftung As Range
Set Grafikbereich = Range("ELO_BEREICH")
Set Beschriftung = Range("ELO_MONATE")
ActiveChart.SetSourceData Source:=Grafikbereich
ActiveChart.SeriesCollection(1).XValues = Beschriftung
End Sub
Das funktioniert auch prima, allerdings möchte ich nun das Diagramm (also kein in ein Tabellenblatt integriertes Diagramm, sondern ein Tabellenblatt was nur aus einem Diagramm besteht) schützen.
Wenn ich das Blatt schütze, funktioniert das Makro nicht mehr.
Also habe ich in "Diese Arbeitsmappe"
folgenden Code eingefügt:
Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Protect Password:="", UserInterfaceOnly:=True
Application.DisplayFullScreen = True
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Call SetCommandbar
End Sub
Könnt ihr mir erklären, was ich falsch mache?
Viele Grüsse
Benjamin
