ich möchte eine graphik auf einer schreibschutzgesicherten seite aktualisieren, also schreibschutz aufheben - graphik aktualisieren - schreibschutz aktivieren. das passwort sei: 'test', wie und wo baue ich das ein ?
danke für eure hilfe ....
swen
--------------
Private Sub CommandButton3_Click()
Sheets(2).Select
Sheets(2).Range("j12").Select
XXXXXXX
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Sheets(1).Range("cn32").Value
.MaximumScale = Sheets(1).Range("cn33").Value
.MinorUnit = 5
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.TickLabels.NumberFormat = "#,##0"
End With
ActiveWindow.Visible = False
Sheets(2).Select
Sheets(2).Range("j12").Select
End Sub