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

Passwort aufheben mit Makro

Betrifft: Passwort aufheben mit Makro von: swen
Geschrieben am: 24.08.2004 17:06:36

hallo,
habe folgende frage: ich habe eine arbeitsmappe komplett passwort-geschützt auf der eine graphik ist. jedesmal, wenn diese graphik aktualisiert werden soll, poppt die passwortabfrage hoch. das möchte ich ausschalten. idealerweise soll mittels vba-makro (ungesehen vom anwender - vba-makro ist ebenfalls passwort-geschützt) der schreibschutz deaktiviert, die graphik aktualisiert, und der schreibschutz wieder aktiviert werden. ich knobele an einer lösung mittels
'ActiveSheet.Unprotect', komme aber nicht weiter, da ich nicht weiß, wie ich ihm das passwort verklickern kann ;-) ...

wer kann helfen ?

danke vorab ...
swen

  


Betrifft: AW: Passwort aufheben mit Makro von: Ulf
Geschrieben am: 24.08.2004 17:08:29

ActiveSheet.Unprotect passwort:="xxx"

Ulf


  


Betrifft: @ULF - passwort ... von: swen
Geschrieben am: 24.08.2004 17:12:24

danke ulf ...

aber wenn ich das genauso in vba eingebe:
ActiveSheet.Unprotect passwort:="xxx"

nimmt er es nicht an .....

was habe ich falsch gemacht ?


  


Betrifft: AW: @ULF - passwort ... von: P@ulchen
Geschrieben am: 24.08.2004 17:13:50

Hi,

vielleicht solltest Du xxx durch Dein Passwort ersetzen ???



Gruß aus Leipzig
P@ulchen


  


Betrifft: AW: @ULF - passwort ... von: Ulf
Geschrieben am: 24.08.2004 17:14:34

Dann ist das Blatt nicht aktiv oder das Passwort ist falsch. Versuchs mal mit dem Blattnamen statt mit ActiveSheet.

Ulf


  


Betrifft: @ULF - die zweite von: swen
Geschrieben am: 24.08.2004 17:24:08

hi ulf, vielleicht stelle ich mich zu blöd an, aber wenn das passwort 'test' wäre, wie und wo müßte ich das einbauen ? nehme an an der mit XXXXXXX markierten stelle !?
danke vorab ...


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: AW: @ULF - die zweite von: Ulf
Geschrieben am: 24.08.2004 18:14:44

Hab ich dir gerade vor 5 Minuten gepostet.

Ulf


 

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