Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Schreibschutz aufheben mit Passwort

Betrifft: Schreibschutz aufheben mit Passwort von: swen
Geschrieben am: 24.08.2004 17:41:13

hallo, nochmal im detail mit bitte um hilfe ;-)

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

  


Betrifft: warum ein neuer Thread ? von: P@ulchen
Geschrieben am: 24.08.2004 18:10:07

Hi Swen,

geht es hier nun um einen Blattschutz oder einen Schreibschutz für die Mappe ???
Bei Blattschutz statt XXXXXXX : ActiveSheet.Unprotect "test"



Gruß aus Leipzig
P@ulchen


  


Betrifft: AW: Schreibschutz aufheben mit Passwort von: Ulf
Geschrieben am: 24.08.2004 18:10:46

Private Sub CommandButton3_Click()
Sheets(2).unprotect passwort:="test"
'..........
Sheets(2).Protect Contents:=True, DrawingObjects:=True, Password:="test"
End Sub


Ulf


  


Betrifft: @ULF von: swen
Geschrieben am: 25.08.2004 08:59:07

danke, funktioniert, aber nur, wenn man oben auch PASSWORD statt PASSWORT (mit 't') schreibt ...


  


Betrifft: AW: @ULF von: Ulf
Geschrieben am: 25.08.2004 10:34:11

Tausend mal Entschuldigung, dass mir dieser unverzeihliche Fehler passiert ist.
Zeigt mal wieder, dass ein bischen Mitdenken gar nicht so schlecht ist.

Ulf


 

Beiträge aus den Excel-Beispielen zum Thema "Schreibschutz aufheben mit Passwort"